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Editorial 


Ouf ! Exposer dans trois salons sur la micro-informatique en six semaines, c'est franchement trop … 
Certes, cela nous a donné l'occasion de rencontrer de nombreux lecteurs anciens et nouveaux, mais il 
est difficile de gérer trois salons puis d'exploiter leurs résultats sans prendre de retard. 


Le Sicob Printemps s'est très bien passé, avec un monde fou autour des stands d'Apple et de Pom's. 
Un peu moins de monde à Micro Expo, dans un style plus “professionnel”. Et, pour couronner le tout. 
ce tout premier Apple Expo très réussi, où nous avons eu le plaisir de rencontrer Steve Wozniak (Woz 
pour les intimes), Bill Budge (créateur entre autres de Raster Blaster, Pinball Construction Set et Mouse- 
Paint) et Howard Marks (créateur de Jane), parmi d’autres artistes. Quand pourrons-nous ainsi faire la 
connaissance d'un créateur de matériel ou d’un auteur de logiciel français devenu milliardaire à moins 
de 25 ans ? Dans longtemps, hélas, je le crains. 


Les deux premières revues françaises de micro-informatique spécialisées sur un matériel étaient Pom's 
et La Commode, en septembre 1981. Il v a aujourd’hui cinq revues francophones sur l'IBM PC/XT. 
deux sur l'Apple, … au total une bonne quinzaine. Nous fêtons la naissance récente de Théophile, la 
revue pour utilisateurs du TO7 de Thomson. Nous avons bien ri quand nous avons appris que la 
nouvelle version du TO7 s'appelait le MOS5 : nous aurons alors peut-être une revue baptisée Hémo- 
phile, dont le slogan pourrait être "La revue des vampires de l'informatique”! 


| 


Dans ce numéro, vous trouverez tout d'abord de nombreux bancs d'essai Guy Lapautre vous pré- 
sente Thinktank et le résultat de ses tests sur la compatibilité entre l'Apple //c et son ‘grand frère” /!e. 
Alexandre Duback à vu pour vous LIGHT 1, et Alexandre Avrane vous livre ses premières ré- 
flexions sur ProDOS et Bugbyter. Dans le domaine du matériel, Vincent Plassard nous fait vivre sa 
rencontre avec les lecteurs 1 méga de Micro-Expansion, tandis que Kriss Grafiti et moi-même vous 
donnons quelques nouvelles du Macintosh. 


Gérard Michel poursuit la série d'initiation à l'assembleur et vous présente également le BASICIUM, 
un Applesoit enrichi pour la gestion d'écran et la saisie de variables. En toute logique, Roland Jost 
vous offre des PEEKSs à gogo après les POKEs du Pom's 11. Encore de nombreux utilitaires dans ce 
numéro, avec la documentation de tables de shapes par Erick Ringot, l'impression des variables d’un 
programme Basic par Laurent Esnault, des routines de HOME présentées par Philippe François, un 
programme de réduction des images HGR par Patrice Neveu et un petit outil d'analyse de la VTOC 
par Guy d’Herbemont. 


Dominique Bernardi vous permet d'exercer votre adresse avec Ordralphabetix et Jérôme Leclercq 
propose un bloc-notes à tous ceux d'entre vous qui perdent leurs ‘petits papiers”... Les micro-informa- 
tions du jour vous seront présentées par Jean-Michel Gourévitch et vous trouverez également dans 


ce numéro 13 un sommaire thématique des articles publiés par Pom's de ses origines jusqu'au numéro 
12. 


Depuis ce dernier numéro s'est créé le club Apple; il compte plus de 2000 membres en moins de deux 
mois. Il est vrai que ce club bénéficie du soutien total d'Apple Seedrin, ce qui n’est pas négligeable. 
Comme notre revue, il semble avoir pour but d'apprendre aux utilisateurs Apple à tirer un meilleur parti 
de leur matériel. Nous ne pouvons qu'encourager un tel objectif. 


A tout hasard, nous vous rappelons que Pom's recherche toujours un collaborateur (temps partiel ou 
temps plein) connaissant très bien l'Apple, au moins au niveau du Basic et de l'assembleur, capable 
d'écrire clairement et sans faute d'ortographe. Aucune contrainte de sexe ou d'âge … 


Pour finir, nous vous donnons rendez-vous fin septembre, au stand 172 de la boutique micro du Sicob, 
sur le parvis de La Défense. 


Hervé Thiriez 


En couverture : STEVE WOZNIAK et BILL BODGE à Apple-expo 
(photo : J.L. DESNOS) 
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Il y a des femmes qui marchent à 
l'ambition, d’autres à l'argent, d’au- 
tres à la sécurité; moi je marche à 
l'affection, et j'ai tout l'équipement 
qui va avec: un grenier plein de 
trucs dont je ne sais pas me débaras- 
ser, un chien, quelques vrais amies, 
des vrais Jules et des Jules vrais, et 
bien sûr, un collaborateur, OLI- 
BRIUS INOXYDABLE. 


Comme on passe beaucoup de 
temps ensemble, il faut qu'il soit 
sympathique, solide, agréable à re- 
garder, capable d'abattre un travail 
de titan (mais un petit peu moins 
que moi quand même, histoire de 
garder le leadership dans mon entre- 
prise), et puis surtout il faut qu'il 
m'aime d'un amour ergonomique. 
Cet amour régule les rapports de tra- 
vail beaucoup mieux que les syndi- 
cats, mais il comporte un risque im- 
portant : et si tout à coup Inoxydable 
tombait amoureux de quelqu'un 
d'autre ? Son rendement risquerait 
d'être considérablement diminué. 
C'est pourquoi j'en suis arrivée à la 
conclusion qu'il fallait lui trouver une 
autre passion, et la lui trouver moi- 
même. Mais qui ? Mais quoi ? 


C'est à ce moment là que les trom- 
pettes célestes ont soufflé leurs notes 
électroniques et que Jean-Louis Gas- 
sée, le directeur d'Apple France, 
m'est apparu en rêve, nageant la 
brasse dans une piscine d'octets phos- 
phorescents. Naturellement, comme 
je ne connaissais rien à rien, cette 
première vision resta pour moi totale- 
ment énigmatique. 


Ensuite, j'ai eu d’autres visions tout 
aussi sybillines, mais de plus en plus 
fréquentes. Une deuxième, où mon 
Inoxydable, habillé en prestidigita- 
teur, sortait des pommes et des 
souris d'un écossais débonnaire et 
compréhensif. Et enfin une troi- 
sième, un écossais qui soufflait dans 
une cornemeuse faite avec deux très 
belles pommes grignotées.… 


Je suis obligée d’être un peu sévère 
avec le service d’apparitions d'Apple, 
mais je n'y comprenais toujours rien, 
jusqu’au jour où j'ai rencontré le ca- 
pitaine de l'informatique légère, 
Jean-Louis Gassée, en chair et en os, 
et où je lui ai raconté mes rêves. Il 
était assis sur un trône doré, très 
beau, et il m'a dit « Quand le rêve 
reviendra, n'oubliez pas de pronon- 
cer cette phrase + J'INITIALISE LA 
DISQUETTE + ». C’est ce que j'ai 
fait et, en me réveillant le lendemain 
matin, j'ai vu, à côté de mon lit, un 
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Mes premiers émois 


Macintosh qui avait envie de me faire 
de l'œil, et je lui ai donné l’autorisa- 
tion de le faire. Depuis ce jour, je 
suis une cheftesse d'entreprise ra- 
dieuse. Inoxydable est amoureux de 
Mac et travaille deux fois plus et 
deux fois plus rapidement. Quant à 
ma vertu informatique, elle est défini- 
tivement compromise. Il faut dire 
qu'informatiquement parlant, j'étais 
totalement vierge et que l'initialisa- 
tion me semblait une épreuve insur- 
montable dès que je jetais un regard 
inquiet en direction des ordinateurs à 
langage BASIC, Pascal, ou autres... 
Avec Mac, pas besoin de passer par 
ces chemins épineux pour bénéficier 
de ses avantages. C'est un profes- 
sionnel du charme, et c'est lui qui 
s'adapte à vous. Vous voulez couper, 
coller, copier ? Il vous suffit de poin- 
ter la souris dans un menu écrit en 
français français, et de choisir. 





C'est d’abord la suppression du bruit 
qui m'a séduite. Depuis des années, 
Inoxydable et moi écrivions dans la 
même pièce, sur deux machines 
électriques qui faisaient un raffut 
d'enfer, et, au-delà d'un certain 
nombre d'heures de travail, on était 
obligé de mettre des boules Quiès, 
ce qui nuisait gravement à la 
communication. 


Ensuite, mon bureau, qui avait une 
réputation quasi internationale de 
foutoir, est devenu clair et ordonné. 
Ce n'est pas très informatique, ce 
que je vous dis là, mais l’atmosphère 
qui règne dans un bureau a une in- 
fluence considérable sur la qualité du 
travail. Au lieu d’être en lutte perma- 
nente contre les stress du bruit, du 
dossier illisible, du papier perdu, du 
carbone sale et des archives envahis- 
santes, l'espace-boulot a pris un air 
dé vacances et on peut même y tra- 


Kriss Graffiti 


vailler en musique, avantage appré- 
ciable dans la profession que 
j'exerce. 


Bien sûr, au début, Macintosh a un 
petit côté « hallucinogène à la califor- 
nienne » et la distorsion qu'il exerce 
sur le temps n’est pas sans danger. 
S'il est vrai que mon temps de travail 
est réduit de plus d’un tiers par les 
avantages considérables du traite- 
ment de texte, je dois avouer que les 
joies de MacPaint et MacWrite et le 
confort nouveau qu'il m'offre font 
que j'oublie totalement l'heure et 
qu'il n'est pas rare que je me re- 
trouve à 6 heures du matin en train 
de peaufiner un texte que j'aurais 
abandonné depuis longtemps si 
j'avais eu à le retaper entièrement. 
Mais, ce n’est pas moi qui vous l’ap- 
prendrai, quand on passe des nuits 
blanches avec quelqu'un, c'est que 
l'échange d’information est agréable. 


Travailler au mot près, à la virgule 
près, offre une liberté de création to- 
talement révolutionnaire et dame le 
pion à la paresse. L'esprit, dégagé de 
toutes sortes de contraintes pénibles, 
retrouve la joie pure de l'écriture. 


En plus, c’est joli. Les caractères sont 
variés, dans leur forme et dans leur 
taille, l'écran est clair, on peut en ré- 
gler la luminosité, on peut dessiner et 
intégrer les dessins aux textes, ou 
l'inverse, et quand on est vraiment 
accro, on peut mettre le beau Mac 
dans son sac de voyage et l'emporter 
en week-end. Mais oui, mais oui, ça 
m'est arrivé | 


Ah, une dernière question, quel est 
le sexe de Mac ? 


Inoxydable prétend que c’est une 
femme, à cause de la pénétration des 
disquettes indispensable avant toute 
communication vraiment intime, mais 
moi je prétends que c'est un homme 
qui à l'extrême délicatesse de mettre 
un KILT et de montrer ses jambes, 
qu'il a fort jolies, en cette saison pro- 
pice aux amours. 


Maintenant que je suis initialisée, 
j'envisage sérieusement de faire un 
lexique des mots tendres ou injurieux 
que les utilisateurs d'ordinateurs em- 
ploient vis-à-vis de leur nouveau 
compagnon, et qui se répercutent 
dans la vie quotidienne. Par exem- 
ple, quand un homme me fait la 
cour d'une manière qui me déplait ? 
Je lui réponds SYNTAX ERROR... 
Sans doute parce qu'avec Macintosh 
je n’ai jamais le chagrin d'en arriver 
à de telles extrémités. 
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RERÉTRIARE IR NE 





BONJOUR LES PRIX !! 


NOS PRIX SONT F TTC 


























Carte langage 450 Speech card 390 
Carte 128 k ram 1550 Carte horloge 550 
Carte 80 colonnes 745 Joystick 165 
Interface série 600 Ventilateur 280 
Super série 1100 Contrôleur de drive auto switch 13/16 380 
Interface parallèle 420 Microdrive 3” 2200 
Grappler + buffer 16 k 1350 Moniteur vert 12” 950 
Carte modem 2200 Disquettes 5” 1/4 S.F/D.D. par 1 boite 179/boite 
Carte Z 80 650 j d * boites 175/boite 
Wildcard 650 $ ds * 10 boites 170/boite 


AU-DESSUS, NOUS CONSULTER 


Carte bleue et eurocard acceptées 
Vente par correspondance : nous consulter. 


Computer 3 


3, rue Papillon 75009 Paris - Tél. 523.51.15 


(metro Poissonniére) 











LIÈLE..... LIÈLE..... LIÈLE,.. LIÈLE 


Apple //e, Apple ///, Mac-Intoch, 
BFM 186. lelg=|-{ela Ne |diont- Ile Mer: ile 


m.b.d.c. 


m.b.d.c disquettes, Flexettes, 3M, Verbatim. 
"| listing, rubans encreurs. 


m.b.d.c le conseil, le matériel, les périphériques 
: les logiciels, les consommables, 


m.b.d.c. !© S-A.V. sur place. 
le Service Complet. 


un m.b.d.c. 172, RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91.87 
e OUVERT DU MARDI AU SAMEDI DE 9h30 à 12h ET DE 14h30 à 19h 





L'instruction HOME est une des ins- 
tructions les plus utilisées dans les 
programmes. Elle consiste à nettoyer 
l'écran texte : HOME en Applesoft et 
Page(Output) en Pascal font appel à 
la routine du moniteur située en 
$FC58 (—-936 en décimal). 


Voici une série de routines qui net- 
toient l'écran de manière plus origi- 
nale en remplissant l'écran avec le 
caractère de votre choix. 


Le programme se situe en $9418 

sous les buffers du DOS et comporte 

6 points d'entrée : 

e CALL 37910 : effacement très ra- 
pide (5437 cycles machine contre 


HOME, sweet HOME 


15323 général 


CALL 37944 : 


bas: 


e 


CALL 38008 : 


gauche: 


CALL 38051 : 


centre; 


CALL 38113: 


seaux; 


CALL 38184 : 


ment): 


effacement vers le 
effacement vers la 
effacement vers le 
effacement en ci- 


effacement en spi- 
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reusement très long. 


Vous trouverez ci-dessous les pro- 
grammes Applesoft et Pascal de dé- 


monstration et les listings source en 
Big Mac. 


N'oubliez pas d'initialiser HIMEM à 
37910 et de ‘’poker” le code ASCII 


du caractère de remplissage en 
37911 : ainsi POKE 37911,36 vous 





rale: spectaculaire mais malheu- couvrira de dollars … E 
1 OUKG 593416 74 STA ADRLIGNE 
2° 75 LDA  ADRH,X 
3 sesnenannomnmansssneeeeeemnauuns ss 76 STA ADRLIGNE+:i 
4 + 77% 
S + HOME, SWEET HOME.. 78 LDY #39 ;on part de la droite 
6 + 73 DEPLACE LDA (ADRLIGNE),Y :deplace caract. vers bas 
T'ounenuneserenenennnnnneenaneessen ee 80 STA (LIGNE) ,Y 
8 * 81 DEY 
G'oennannees . 82 BPL DEPLACE 
10 - CONST + Big Mac 83 » 
ll mmnmumsnne 84 CPX #00 :a-t-on atteint le bas? 
12 + 85 
13 ESPACE = SAO :4scii espace 86 BEQ EFFSOM 
la ZERO = S00 87 BPL NEXT ÿ = Jmp next 
15 « 88 * 
16 vrnsmse 893 EFFSOM LDY #33 : coin droit 
17 #* VAR * 30 LDA #ESPACE 
18 mnsrexs 91 EFFACE STA  (ADRLIGNE),Y 
13 + 32 DEY 
20 ADRLIGNE = S28 33 BPL EFFACE 
2i LIGNE = 506 34 + 
22Z COMPTEUR = SFE 35 DEC COMPTEUR 
23 + 36 BNE ENCORE 
24 R------------------m ne 37 RTS 
25 * 38 * 
26 HCNT = s00 J9 RARE RM RM MR RU nn nn 
27 VONT = HENT»+1 100 * EFFACEMENT VERS LA GAUCHE * 
28 XL = VENT +1 101 renenenannnnenenenmanneneeet 
23 XR = XL+1 102 »* 
30 YT = XR+1 103 LDA #40 :40 caracteres par ligne 
31 YB = YT+1 104 STA COMPTEUR 
32 * 105 » 
33 mem 196 ENCOREZ LDX #ZERO :ligne sommeT 
34 + 107 NXTLIGN LDY #ZERO :colonne de gauche 
3S nrnnnnnnnannneeenesnn 108 LDA  ADRL,X 
36 * EFFACEMENT RAPIDE # 109 STA  ADRLIGNE 
37 nannunnaunnenasesenss 110 LDA ADRH,X 
38 » Lil STA  ADRLIGNE+1 
39 LDA #ESPACE 112 CONT INY 
40 EOR #580 113 LDA  CADRLIGNE),Y 
ai LDY #119 114 DEY 
42 SUITE STA $400,Y lines O 8 16 115 STA  (ADRLIGNE),Y 
43 STA S$500,Y L 2 10 18 1i6 INY 
44 STA S$600,Y È 4 12 20 117 CEY #39 ;dernieère colonne? 
45 STA S$700,Y : 6 14 22 118 BNE CONT 
46 STA S$S480,Y ; 1 917 113 « 
47 STA S580,Y ; 3 11 19 120 « DERNIERE COLONNE #* 
48 STA S680,Y x S, 13,27 121 * 
43 STA S780,Y : 7 15 23 122 LDA #ESPACE 
50 DEY 123 STA ($28),Y 
S1 BPL SUITE 124 INX 
S2 RTS 125 CPX #24 :derniere ligne? 
S3 * 128 BNE NXTLIGN 
54 * 127 * 
SS + 128 DEC  COMPTEUR 
SE *rramaanemnmnmunnn nn EE 129 BNE ENCORE2 
57 * EFFACEMENT VERS LE BAS #* 130 RTS 
SD ARR RAR RM 131 * 
53 + 132 nonnnnmen nn un nu 
60 LDA #24 133 * EFFACEMENT PAR LE CENTRE +* 
61 STA SFE 134 vunnnnnenentereeessnnenesne 
62 »* 155 * 
63 ENCORE LDX #23 :derniere iigne 136 LDY #20 initial. compteur de boucle 
64 LDA  ADRL,X schargement de la partie basse 137 STY COMPTEUR 
65 STA  ADRLIGNE :on stocke dans adrligne 1358 »* 
66 LDA  ADRH,X Chargement partie haute 139 BOUCLE LDX  #ZERO sinitialisation ligne 
67 STA  ADRLIGNE+1 140 »* 
68 NEXT LDA  ADRLIGNE 141 NEXTLIGN LDY #18 sinitialisation coionne 
63 STA LIGNE 142 LDA  ADRL,X 
70 LDA  ADRLIGNE+1 143 STA  ADRLIGNE 
71 STA LIGNE+1 144 LDA  ADRA,X 
72 DEX 145 STA ADRLIGNE+1 
73 LDA  ADRL,X 146 + 
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147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
153 
160 
161 
i6e2 
163 
164 
165 
166 
167 
168 
163 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
183 
190 
191 
1932 
193 
194 
195 
136 
197 
138 
133 
200 
201 
202 
203 
204 
205 
206 
207 
208 
205 
210 
211 
212 
213 
214 
215 
216 
217 
218 





DEPLACD LDA 
INY 
STA 
DEY 
BEQ 
DEY 
BEL 


GAUCH LDA 
STA 
LDY 


DEPG LDA 
DEY 
STA 
INY 
CPY 
BEQ 
INY 
BPL 


DROIT LDA 
STA 
INX 
CPX 
BNE 


DEC 
BNE 
RTS 
* 
+ 


CADRLIGNE) ,Y ;recuper. d’un caractere 


(ADRLIGNE) ,Y ;:on le deplace d’un rang 


GAUCH son sort s1 derniere col 
DEPLACD ;=JMP 

#ESPACE 

CADRLIGNE),Y 

#21 sinitialisation col 


CADRLIGNE) ,Y;on place un caractere 


CADRLIGNE) ,Y 


#39 sest-on a la derniere col 
DROIT si oui on sort 

DEPG :=JMP 

RESPACE 

(ADRLIGNE),Y 

#24 :dernière ligne? 

NEXTLIGN 

COMPTEUR 

BOUCLE 


RRRRRNRRRRRR RER ROM RNA n 


* EFFACEMENT GAUCHE-DROITE & DROITE-GAUCHE » 


Rennes nnnnnnneensses 


LA 
LDX 
STX 

BOUCLEZ  LDX 

GAUCRE LDA 
STA 
LDA 
STA 
LDY 

DEPLACG  LDA 
DEY 
STA 
INY 
CPY 
BEQ 
INY 
BPL 

” 

BLANCD LDA 
STA 
INX 
LDA 
STA 
LDA 
STA 

" 

DEPLACDT DEY 
LDA 
INY 
STA 
DEY 
BEQ 
BNE 

Le 

BLANCL LDA 
STA 
INX 
CPX 
BNE 
DEC 
BNE 
RTS 


#40 

COMPTEUR 
#ZERO 

ADRL,X 
ADRLIGNE 
ADRH,X 
ADRLIGNE+1 
#s01 
CADRLIGNE) ,Y 


CADRLIGNE) ,Y 


#39 
BLANCD 


DEPLACG 


#SA0O 
(ADRLIGNE) ,Y ;a ce moment y=39 


ADRL,X 
ADRLIGNE 
ADRH,X 
ADRLIGNE+1 


CADRLIGNE) ,Y 


CADRLIGNE) ,Y 


BLANCL 
DEPLACDT 


#ESPACE 
CADRLIGNE) ,Y:a ce moment y-Q 


#24 ; termine? 
GAUCHE 

COMPTEUR 

BOUCLE2 


RM RO R nn mn 


"HOME" 


EN SPIRALE " 


ner enemnnnnnnnnasemnenmnmm 


. 
DEBUT LDA 
STA 
DEB1 LDA 
STA 
DEB2 JSR 
LDA 
STA 


DEC 
BNE 
DEC 
BNE 
RTS 


* 
ROTATION 
LDA 
STA 


#24 ;: pour 24 lignes 
VENT 

#40 ; pour 40 colonnes 
HENT 

ROTATION 

#ESPACE 


S628+12 au milieu de l'ecran 


HCNT 
DEB2 
VENT 
DEB1 
c’est fin: ! 


. 


#S00 


< 
Fe 
on 


bord gauche 





STA YT : sommet 

LDA #23 

STA YB : bas 

LDA #39 

STA XR : bord droit 

JSR BAS : on part du cote gauche 

BEQ  ROT2 
ROTI1 JSR BAS 

DEC YB 
ROT2 JSK GAUCHE: 

INC XL 

JSK HAUT 

INC YT 

JSR DROITI 

DEC XR 

LDA YT 

CHP  YB 

BCC  KOTI1 

RTS 
nn nn nnnnnnnnnnnenn en nn 
*ON SE DEPLACE VERS LA GAUCHE ETe 


« VERS LE BAS . 
nunnnnnneeeennnenneneeseenenmun nn 
BAS LDY XL 

LDX YB 
BAS: DEX 

JSR CALCULE 

LDA  CADKLIGNE),Y 

PHA 

iNXx 

JSR CALCULE 

PBLA 

STA  (ADRLIGNE),Y 

DEX 

CPX YT 

BNE BAS1 

RTS 
. 
nonnnneneensnnennnennnnnnnnnnnn nn 
"ON SE DEPLACE VERS LA DROITE ET* 


. VERS LE HAUT E 
0 0 Dm M DD D HD 00 0 2 0 0 6 JE DU DE 8 8 à 
HAUT LDY XR 

LDX ŸT 
HAUT INX 

JSR CALCULE 

LDA  (ADRLIGNE),Y 

PHA 

DEX 

JSR CALCULE 

PLA 

STA  (ADRLIGNE),Y 

INX 

CPX YB 

BNE  HAUTI 

RTS 
: 
EPP PPT PET EEE EEE EEE OEEPRPPEPEE 
“ON SE DEPLACE VERS LE SOMMET ET» 


. VERS LA GAUCHE . 
ARR NANNÉ Te One RECRUTENT TS 
* 
GAUCHE LDX YT 

JSR CALCULE 

LDY XL 
GAUCHEZ2  INY 

LDA  (ADRLIGNE),Y 


DEY 

STA (ADRLIGNE),Y 
INY 

CPY XR 

BNE GAUCHE2 

RTS 


rnnnnnnnnnnneeseseeneeeneenmnun 
* ON SE DEPLACE VERS LE BAS ET +» 
* VERS LA DROITE . 


sesnnnnnnnnnsnesennenénm nm nn 0 
* 
DROITI LDX YB 
JSR CALCULE 
LDY XR 
DROIT2 DEY 
LDA (ADRLIGNE),Y 


INY 

STA  CADRLIGNE),Y 
DEY 

CPY XL 

BNE DROIT2 

RTS 


“ 
hrronannnnnnnnnunnussnnn 
* CALCUL DE L’ADRESSE + 
nunnnnnnnnenenunsssnennes 
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345 CALCULE LDA ADRH,X 356 











346 STA  ADRLIGNE+1 357 x PARTIE HAUTE DES ADRESSES PAGE TEXT + 
347 LDA  ADRL,X 358 * 
348 STA  ADRLIGNE 359 »* 
349 RTS 360 ADFH HEX 04040S0508060707 ;lignes O-7 
350 »# 361 REX 0404050506060707 ;lignes 8-15 
351 * PARTIE BASSE DES ADRESSES PAGE TEXT « 362 HEX 0404050506060707 ;lignes 16-23 
352 + 363 * L 
25e ADKL HEX  OU80008000800080 :lignes 0-7 . - 
354 HEX 28A828A828A82848 ;lignes 8-15 365 LST OFF 
355 HEX  SODOSODOSODOSODO ; lignes 15-23 
1 REM #*x ESSAI SWEE POKE. 37911, ASC CEMENT PAR LE C 
T HOME #*#* (AS) ENTRE 
30 CALL 37910: CALL 3 60 CALL 37910: CALL 3 
S HOME : VTAB 1: HTAB 7944: REM EFFA 8113: REM EFFA 
11: PRINT ‘HOM CEMENT PAR LE B CEMENT GAUCHE D 
E, SWEET HOME.. ÀS ROITE-DROITE GA 
40 CALL 37910: CALL 3 UCHE 
10 HIMEM: 37910: PRIN 8008: REM EFFA 70 CALL 37910: CALL 3 
T CHRS (4)'"BLO CEMENT PAR LA G 8184: REM EFFA 
AD SWEET HOME" AUCHE CEMENT EN SPIRA 
20 INPUT ‘DONNEZ LE C SO CaLL 37910: CALL 3 LE 
ARACTERE ‘:AS: 8051: REM EFFA 8O END 
3 : £ S4AO0- DO DA 60 AO 14 84 FE A2 3550- 6F 9S FO OS 20 6F 95 C6 
Récapitulation HOME 3448- 00 AO 12 BD DO 95 85 28 9558- 05 20 9F 9S E6 O2 20 87 


34BO- BD E8 9S 85 29 B1 28 C8 3560- 9S E6 O4 20 B2 9S C6 03 

S4B8- 91 28 88 FO 03 88 10 F5 3568- AS 04 CS 05 90 E6 60 A4 
3416- A9 3F 94CO- AG AO 931 28 AO 15 B1 28 9$570- 02 A6 OS CA 20 CS 95 B1 
3418- 49 80 AO 77 9S 00 04 99 34C8- 88 91 28 C8 CO 27 FO O3 3578- 28 48 E8 20 CS 95 68 91 
3420- 00 OS 33 00 06 93 00 07 34D0- C8 10 F3 A9 AO 91 28 E8 3580- 28 CA E4 04 DO ED 60 A4 
3428- 99 80 04 93 80 05 99 80 S4D8- EO 18 DO CD C6 FE DO C7 9588- 03 A6 04 E8 20 CS 95 B1 
3430- 06 9S 80 07 88 10 ES 60 34E0- 60 A2 28 86 FE A2 OO BD 3530- 28 48 CA 20 CS 95 68 91 
3438- AS 18 85 FE A2 17 BD DO S4E8- DO 9S 85 28 BD E8 95 85 3598- 28 E8 E4 O5 DO ED 60 A6 
3440- 95 85 28 BD E8 95 85 23 S4FO- 293 AO O1 B1 28 88 91 28 3SSAO- O4 20 CS 95 A4 O2 C8 Bi 
3448- AS 28 85 06 AS 29 85 07 Sa4F8- C8 CO 27 FO 03 C8 10 F3 SSA8- 28 88 91 28 C8 C4 03 DO 
3450- CA BD DO 95 85 28 BD E8 3500- AS AO 91 28 E8 BD DO 95 3SBO- F5 60 A6 05 20 CS 935 A4 
3458- 95 85 29 AO 27 B1 28 91 3508- 85 28 BD E8 95 85 29 88 35SB8- 03 88 B1 28 C8 91 28 88 
3460- 06 88 10 F9 EO O0 FO O2 9510- B1 28 C8 91 28 88 FO 02 3SCO- C4 O2 DO FS 60 BD E8 95 
3468- 10 DE AO 27 A9 AO 91 28 3518- DO FS AS AO 91 28 E8 EO 35C8- 85 29 BD DO 95 85 28 60 
3470- 88 10 FB C6 FE DO CS 60 3520- 18 DO C4 C6 FE DO BE 60 3SDO- 00 80 00 80 00 80 00 80 
3478- AS 28 85 FE A2 OO AO O0 9528- A9 18 85 O1 A9 28 85 00 35D8- 28 A8 28 A8 28 A8 28 A8 
3480- BD DO SS 85 28 BD E8 935 3530- 20 41 95 A9 AO 8D 34 06 9SEO- 50 DO 50 DO 50 DO 50 DO 
3488- 85 29 C8 B1 28 88 91 28 3538- C6 00 DO F4 C6 O1 DO EC SSE8- 04 04 05 05 06 06 07 07 
9490- C8 CO 27 DO F5 A9 AO 91 3540- 60 AS 00 85 02 85 O4 A9 3SFO- 04 04 OS OS 06 06 07 07 
3498- 28 E8 EO 18 DO EO C6 FE 3548- 17 85 OS AS 27 85 03 20 3SF8- 04 04 05 05 06 06 07 07 





PROGRAM ESSAI HOME: WRITE(’Donnez un caractere ’):READ(CAR): 
HOME (CAR) ; 
VAR EFFACE BAS: 
CAR : CHAR: HOME (CAR) ; 
EFFACE GAUCHE ; 
PROCEDURE HOME(CARACTERE:CHAR): EXTERNAL; HOME (CAR) ; 
PROCEDURE EFFACE BAS; EXTERNAL; EFFACE CENTRE: 
PROCEDURE EFFACE GAUCHE: EXTERNAL; HOME (CAR) ; 
PROCEDURE EFFACE _ CENTRE; EXTERNAL; EFFACE GD _DG; 
PROCEDURE EFFACE GD_ DG; EXTERNAL; HOME (CAR) : 
PROCEDURE EFFACE SPIRALE; EXTERNAL; EFFACE SPIRALE: 
END. 
BEGIN 
1: Sec Es Bit: pla NES DR En ie 
«MACRO POP ss HOME, SWEET HOME.. . 
PLA HU # 
STA *%i LHRMMMMMOMMOMOMONNMOMNMENEHEONMMOU UE DEN MEUE D 00 
PLA é 
STA %x1+1 .-PROC HOME,1 
+ ENDM 
-REF ADRL, ADRH 
-MACRO PUSH d 
LDA %1+i HLELLL 
PHA 3 VAR * 
LDA %i HELLLE] 
PHA ; 
- ENDM RETURN -EQU 00 
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DRRREPROOREESR ES | 


ADRLIGNE 
LIGNE 
COMPTEUR 


-EQU 28 
-EQU 06 
-EQU OFE 


RÉELLELELELEELTIILILILLT) 


:* EFFACEMENT RAPIDE #* 


… 


SUITE 


ÉERETEE CEE TEE CEE TEE TS 


“sn 
VAR * 


HELLET) 


RETURN 
ADRLIGNE 
LIGNE 
COMPTEUR 


ENCORE 


NEXT 


; 


DEPLACE 


. 


EFFSOM 


EFFACE 


; 
. 
; 
; 
; 
; 


POP 


PLA 
EOR 


LDY 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
DEY 
BPL 


LUMMEMNMNN NN 0 0e ad je 6 


RETURN 

: recuperation du parametre 
#80 
#119. 
400,Y lines O 8 16 
500,Y : 2 10 18 
600,Y ; 4 12 20 
700,Y ; 6 14 22 
480,Y ; 1 93 17 
S80,Y :; 3 11 19 
680,Y ; 5 13 21 
780,Y : 7 15 23 
SUITE 


PUSH RETURN 


RTS 


annee nn nn mme ne 


* EFFACEMENT VERS LE BAS * 


LELLEELELLELS TTL TTL LT TI LT 


.PROC EFFACE BAS 


REF ADRL, ADRH 


-EQU 00 
.EQU 28 
.EQU 06 
.EQU OFE 


POP 


LDA 
STA 


LDX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
DEX 
LDA 
STA 
LDA 
STA 


LDY 
LDA 
STA 
DEY 
BPL 


CPXx 


BEQ 
BPL 


LDY 
LDA 
STA 
DEY 
BPL 
DEC 
BNE 


RETURN 


#24. 
OFE 


#23. ;derniere ligne 

ADRL,X ;chargement partie basse 
ADRLIGNE ;on stocke dans adrligne 
ADRH,X ;chargement partie haute 
ADRLIGNE+1 

ADRLIGNE 

LIGNE 

ADRLIGNE+1 

LIGNE+1 


ADRL,X 
ADRLIGNE 
ADRH,X 
ADRLIGNE+I 


#39. ;on part de la droite 
&ADRLIGNE,Y ;le caract. vers bas 
(LIGNE) ,Y 

DEPLACE 

#00 :a-t-on atteint le bas? 


EFFSON 
NEXT ; =  jmp next 
#39, ; coin droit 
#0A0 

GSADRLIGNE,Y 


EFFACE 


COMPTEUR 
ENCORE 


PUSH RETURN 


RTS 


CELELLELLELLLEELELLELLLLELLLE) 


Li 
+ EFFACEMENT VERS LA GAUCHE +* 
LL 


CELLELELLLELELELLELLELLLELILLELLE LEE) 





LELLLZ] 


VAR #* 


HELLELE] 


, 
; 
; 


RETURN 
ADRLIGNE 
LIGNE 
COMPTEUR 


ENCORE2 
NXTLIGN 


CONT 


us. 


CRTC TE 


LELELEE] 


VAR * 


DER CETTE 


RETURN 
ADRLIGNE 
LIGNE 
COMPTEUR 


BOUCLE 


NEXTLIGN 


DEPLACD 


+ PROC EFFACE GAUCHE 


.-REF ADRL, ADRH 


-EQU 00 
-EQU 28 
-EQU 06 
.-EQU OFE 


POP RETURN 


LDA #40. :40 caracteres par ligne 
STA COMPTEUR 


LDX #00 :ligne sommeT 

LDY #00 ;colonne de gauche 
LDA ADRL,X 

STA ADRLIGNE 

LDA ADRH,X 

STA ADRLIGNE+1 

INY 

LDA GADRLIGNE,Y 

DEY 

STA GADRLIGNE, Y 

INY 

CPY #39. ;derniere colonne? 
BNE CONT 


DERNIERE COLONNE * 


LDA #0A0 

STA (28),Y 

INX 

CPX #24. ;derniere ligne? 
BNE NXTLIGN 


DEC COMPTEUR 
BNE ENCORE2 


PUSH RETURN 


RTS 


LELLELLEELEELLELLELLELLEL LEE] 


# EFFACEMENT PAR LE CENTRE #*# 


anne nnnnnnnannnnmunmaunm mu 


-PROC EFFACE CENTRE 


-REF ADRL, ADRH 


-EQU 00 
-EQU 28 
-EQU 06 
-EQU OFE 


POP RETURN 


LDY #20. ;1initiail. compteur de boucle 


STY COMPTEUR 
LDX #00 ;initialisation ligne 


LDY #18. :initiaiisation colonne 
LDA ADRL,X 

STA ADRLIGNE 

LDA ADRH,X 

STA ADRLIGNE+1 


LDA GADRLIGNE,Y ;:recup. d’un caractere 


INY 


STA GADRLIGNE,Y ;:le deplace d’un rang 


DEY 

BEQ GAUCH ;on sort s1i derniere col 
DEY 

BPL DEPLACD ;:.EQUJMP 


LDA #OA0 
STA @GADRLIGNE,Y 
LDY #21. ;initialisation col 


LDA @ADRLIGNE,Y;on place un caractere 


DEY 

STA @ADRLIGNE,Y 

INY 

CPY #39. ;est-on a la derniere col 
BEQ DROIT ;si oui on sort 
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INY 
BPL DEPG :.EQUIMP 


DROIT LDA #OA0 
STA @GADRLIGNE,Y 
INX 


CPX #24. ;derniere ligne? 


BNE NEXTLIGN 


.. 


DEC COMPTEUR 
BNE BOUCLE 


PUSH RETURN 


RTS 


ve ue ve ve ve ve 


.PROC EFFACE_GD_DG 
.REF ADRL, ADRH 


LELELI) 


VAR * 


sn ve ve ve 


RETURN -EQU 00 
ADRLIGNE -EQU 28 
LIGNE .EQU 06 
COMPTEUR -EQU OFE 
POP RETURN 


LDX #40. 
STX COMPTEUR 
BOUCLE2 LDX #00 
GAUCHE LDA ADRL,X 
STA ADRLIGNE 
LDA ADRH,X 
STA ADRLIGNE+1 
LDY #01 
DEPLACG LDA @ADRLIGNE,Y 
DEY 
STA @ADRLIGNE,Y 
INY 
CPY #39. 
BEQ BLANCD 
INY 
BPL DEPLACG 


BLANCD LDA #OAO 


STA @ADRLIGNE,Y ;a ce moment y= 


INX 

LDA ADRL,X 

STA ADRLIGNE 

LDA ADRH,X 

STA ADRLIGNE+1 
DEPLACDT DEY 

LDA @ADRLIGNE,Y 

INY 

STA @ADRLIGNE,Y 

DEY 

BEQ BLANCL 

BNE DEPLACDT 


BLANCL LDA #O040 


STA GADRLIGNE,Y;a ce moment y-0 


INX 

CPX #24, ; terminet 
BNE GAUCHE 

DEC COMPTEUR 

BNE BOUCLE2 


PUSH RETURN 
RTS 
RÉLLELLELLEELE ELLE LSI LITE TILL LLLILLT) 


"HOME" EN SPIRALE . 


C2 
HHHRRMENNNN0N0N80D00UEONONDEMDE DD DE D D DE D D Ne 


- PROC EFFACE_ SPIRALE 


-.DEF ADRL, ADRH 


RETURN -EQU 00 


HCNT -EQU OA 
VENT -EQU HCNT+1 
XL -EQU VCNT+1 
XR -EQU XL+1 
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ROM RM Rene nm 


«+ EFFACEMENT GAUCHE-DROITE & DROITE-GAUCHE +# 


ERREUR RÉ RUURUURUMRRRnnnunmu 


YT. -EQU XR+1 
YB .EQU YT+1 
ADRLIGNE -EQU 28 


POP RETURN 


DEBUT LDA #24. ; pour 24 lignes 


STA VONT 


DEB1 LDA #40. ; pour 40 colonnes 


STA HCNT 
DEB2 JSR ROTATION 
LDA #OA0 


STA 628+12. ; au milieu de l'ecran 


.. 


DEC HCNT 
BNE DEB2 
DEC VONT 
BNE DEBi 


PUSH RETURN 
RTS ; c’est fini ! 


ROTATION 
LDA #00 
STA XL ; bord gauche 
STA YT ; sommet 
LDA #23. 
STA YB ; bas 
LDA #39. 
STA XR ; bord droit 


JSR BAS ; on part du cote gauche 


BEQ ROTZ2 
ROTI JSR BAS 

DEC YB 
ROT2 JSR GAUCHE 

INC XL 

JSR HAUT 

INC YT 

JSR DROIT: 

DEC XR 

LDA YT 

CMP YB 

BCC ROTI 

RTS 
DRRRRRRRRUURROMONUNONOROUNOUONOMONUEOROUONUEHONOM En nn 
:*ON SE DEPLACE VERS LA GAUCHE ET» 
5 VERS LE BAS + 
RAR ARR RAR PR RSS SDS np E En 


BAS LDY XL 


LDX YB 
BAS1 DEX 


JSR CALCULE 

LDA @ADRLIGNE,Y 
PHA 

INX 

JSK CALCULE 

PLA 

STA GADRLIGNE,Y 
DEX 

CPX YT 

BNE BAS1 

RTS 


: 


DMÉELELELLELELELLLELELE TS LT TELL 
:*ON SE DEPLACE VERS LA DROITE ET» 
A VERS LE HAUT * 
DRM m mm mom mu em 


HAUT LDY XR 
LDX YT 
HAUTI1 INX 


JSR CALCULE 

LDA GADRLIGNE,Y. 
PHA 

DEX 

JSR CALCULE 

PLA 

STA G@GADRLIGNE,Y 
INX 

CPX YB 

BNE HAUTIi 

RTS 


RAR RAR MR RAR RN NN RENE N NE Ë 0 à 
:*ON SE DEPLACE VERS LE SOMMET ET* 
;" VERS LA GAUCHE “ 
." 


ÆRMMNMUNNOMNN NOMME OM ME DE DD DE dE DE 


GAUCHE LDX YT 
JSR CALCULE 


DORE RES | 














LDY 
INY 
LDA 
DEY 
STA 
INY 
CPY 
BNE 
RTS 


XL 
GAUCHE2 
SADRLIGNE, Y 


SADRLIGNE, Y 


XR 
GAUCHE2 


RER LL LL LL LL LLLLLLLLLLLLLZLZX)] 
:* ON SE DEPLACE VERS LE BAS ET + 
:. VERS LA DROITE * 
RES L LL LLLLLLLLLLLELLLLLLLLLELLE] 
DROIT: LDX 
JSR 
LDY 
DEY 
LDA 
INY 
STA 
DEY 
CPY 
BNE 
RTS 


YB 
CALCULE 
XR 
DROIT2 
GADRLIGNE, Y 


GADRLIGNE, Y 


XL 
DROIT2 


5 


sen nn eue nd M 


;5* CALCUL DE L'’ADRESSE #* 


ennnnnnRnRennennnunnenx ne 


CALCULE 


LDA 
STA 
LDA 
STA 
RTS 


ADRH,X 
ADRLIGNE+1 
ADRL, X 
ADRLIGNE 


: PARTIE BASSE DES ADRESSES PAGE TEXT « 


ADRL 


: PARTIE 


ADRH 


- END 


.BYTE 00,80,00,80,00,80,00,80 
.BYTE 28,04A8,28,0A8,28,0A8,28,0A8 
-BYTE 50,0D0,50,0D0,50,0D0,50,0D0 


.-BYTE 04,04,05,05,06,06,07,07 
.BYTE 04,04,05,05,06,06,07,07 
-BYTE 04,04,05,05,06,06,07,07 


;: lignes 0-7 
:lignes 8-15 
:lignes 16-23 


HAUTE DES ADRESSES PAGE TEXT » 


:lignes 0-7 
;:lignes 8-15 
:lignes 16-23 





Bugbuter à l’essai 


Alexandre Avrane 


L'Apple ne connaît qu’un seul lan- 
gage, celui du processeur 6502, et 
pourtant peu d'utilisateurs l’exploi- 
tent; la plupart se considèrent défini- 
tivement brouillés, après la lecture 
des manuels Apple, avec la program- 
mation en assembleur. 


Bugbvyter est un outil de programma- 
tion facilitée en assembleur : il assiste 
l'utilisateur dans la mise au point des 
programmes en 6502, en lui offrant 
des possibilités originales par rapport 
à ce qu'offrent le moniteur de l’Ap- 
ple ou les divers assembleurs dispo- 
nibles. 


Mettre au point un programme, c'est 
avant tout pouvoir l'exécuter instruc- 
tion par instruction (STEP/TRACE) 
pour déceler l’origine d’une erreur. Il 
est certes possible de reprendre les 
routines de STEP/TRACE disponibles 
sur le moniteur d’origine de l'Apple Il 
(avant le I] Plus) ou avec le Moniteur 
Etendu (Pom'’s 8), mais les informa- 
tions affichées restent rudimentaires 
(en particulier la valeur des bits du 
registre d'état). 


Bugbvter s'est donné les moyens 
d’un ”’debugging” agréable ; en effet 
l'écran affiche simultanément : 


e la douzaine d'instructions précé- 
dant et suivant la position actuelle; 

e les valeurs en hexadécimal ou en 
binaire des registres (A/X/Y/P/S) 
du 6502 et leur évolution; 

e la position courante du compteur 
de programme (PC); 

e la situation actuelle de la pile du 
6502, ainsi que le pointeur de 
pile; 

® le nombre de cycles-machine exé- 
cutés; 





® les valeurs d’une demi-douzaine 
d'adresses stratégiques que l’utili- 
sateur aura précisées; 

e la situation des points d'arrêts, 
également spécifiés par l'utilisa- 
teur, et le nombre de fois qu'ils 
ont été atteints. 


Il est également possible d'observer 
l'évolution des zones d'écran texte 
ou haute résolution, page 1 ou 2, et 
de faire varier la vitesse d'exécution, 
éventuellement à l’aide d'un paddle. 


Bugbyter fonctionne comme un in- 
terpréteur des instructions du 6502, 
ce qui ralentit évidemment le dérou- 
lement du programme: il est néan- 
moins possible de préciser une zone 
mémoire qui devra être exécutée à 
pleine vitesse, par exemple la routine 
RWTS du DOS. Entièrement relo- 
geable, Bugbuter peut également être 
implanté sur une carte langage. 


Les problèmes de contention (colli- 
sion) sont réduits au minimum et 
Bugbyter ne réserve en fait qu’une 
trentaine d’octets sur la pile du 6502: 
toutes les adresses en page zéro sont 
sauvegardées et restaurées; l’affi- 
chage vidéo peut être supprimé: il est 
également possible de spécifier que 
tous les caractères du clavier sauf un 
seront reçus par le programme exé- 


cutant, le dernier servant à arrêter le 
TRACE. 


Si les caractéristiques de Bugbyter 

s'arrêtaient là, ce serait déjà un ex- 

cellent produit. Mais il offre en 

prime : 

e un mini-assembleur résident, plus 
pratique que celui d'Apple: 

e ma traducteur décimal/hexadéci- 
mal; 


e la possibilité de visualiser la mé- 
moire par dump hexadécimal et 
ASCII: 

e la modification facile des quatre 
fenêtres d'affichage à l'écran: 

e l'installation de points d’arrêts 
(breakpoints) virtuels (un BRK 
n'est pas inséré); 

e l'exécution sur Apple Il, II+, //e, et 
{{! en mode émulation:; 

e non protection et fonctionnement 
sous DOS 3.2 ou 3.3, ce qui per- 
met de lutiliser conjointement 
avec un assembleur, Big Mac par 
exemple, sans devoir recharger 
l'un des deux programmes. Un 
seul regret : il est impossible d’ob- 
tenir une sortie sur imprimante des 
informations produites. 


En rapport performance/prix, un seul 
concurrent sérieux: le Moniteur 
Etendu du Pom's 8 qui offre de 
nombreuses possibilités semblables, 
ainsi que certaines facilités en plus ou 
en moins par rapport à Bugbvuter. Le 
prix du numéro et de la disquette : 
95 F. 


En guise de conclusion, Bugbuter est, 
à un coût raisonable (environ 450 
FF, mais difficile à trouver), une né- 
cessité à la fois pour le novice qui 
veut apprendre l'assembleur sans 
douleur, et pour l'utilisateur plus ex- 
périmenté qui gagnera un temps pré- 
cieux de mise au point et osera abor- 
der certains programmes très com- 
plexes. La programmation en assem- 
bleur n’est plus un art avec ses mo- 
ments d'intuition et de désespoir, 
mais devient une technique. Est-ce 
dommage ? 
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J'ai voulu voir s'il était vraiment pos- 
sible d'utiliser l’assembleur UCSD. 
En fait, ça l’est et on découvre même 
à l'usage que le passage de paramè- 
tres entre le Pascal et son assembleur 
est nettement plus simple qu’en 
Basic (pour la mise au point, c'est 
autre chose !). En particulier, on peut 
dans le programme Pascal redéfinir 
les touches de direction utilisées par 
la routine assembleur, grâce à la di- 
rective .PUBLIC qui montre toutes 
les qualités de l’assembleur (ou plu- 
tôt de l’éditeur de liens UCSD). 


Toutes les explications nécessaires 
sont données par le programme Pas- 


Un jeu d’adresse en Pascal : 
ORDRALPHABETIX 


Dominique Bernardi 


cal. Par contre, je n'ai pas eu le 
temps (ou le courage) de documen- 
ter la procédure externe. De toute 
façon, il serait sans doute plus astu- 
cieux de faire appel aux routines de 
Turtlegraphics (si on savait où elles 
se trouvent) ou d'écrire sa propre 
routine de HPLOT, plutôt que de 
faire appel à la ROM Applesoft 
comme je le fais. Enfin, comme le di- 
sait Galilée, ça tourne 


ORDI est le programme Pascal 
d'ORDRALPHABETIX et ORD2 le 
programme assembleur. 














TURTLEGRAPHICS, APPLE 





-.-26)j OF POINT: 








DELTAX,DELTAY,TEMPORISATION:INTEGER: 
HAUT,BAS,GAUCHE,DROÏÎTE,A:CHAR: 
PROCEDURE COURS; EXTERNAL: 
FUNCTION PCAR(S:CHOIXDECA) :CHAR: 
VAR A:CHAR:; 
BEGIN 
REPEAT READ(A) UNTIL A IN 
PCAR:=A 
END; 


S: 


FUNCTION OUI :BOOLEAN: 
BEGIN 

QUI:=PCAR(("0O°,” 
END; 


N‘]} Le) 


FUNCTION ENTIER:INTEGER: 
VAR A:CHAR; 

I:INTEGER; 
BEGIN 






A:=PCAR(C’0°..79j); 
<ORD(A)-ORD(’0”): 
:=PCAR((’0’..°9°,* *)): 
IF A<>° ? THEN 1:=10%1+ORD(A)-ORD(‘0’): 
ENTIER:=1I 
END; 


PROCEDURE PARAMETRES; 
VAR I,J:INTEGER; 
BEGIN 
REPEAT 
PAGE (OUTPUT); 
WRITELN(” 
WRITELN; WRITELN: 
WRITELN (ACTUELLEMENT: 
WRITELN; WRITELN; 
WRITE(/LETTRES (1..26) -->’): 
REPEAT I:=ENTIER UNTIL I IN (1. 
WRITELN; 
WRITE(’VITESSE (1..20) -->’): 
REPEAT J:=ENTIER UNTIL J IN £1..20): 
WRITELN; WRITELN: 
WRITELN(I,’ LETTRES, VITESSE 
WRITELN; 
WRITE(’OK ? 
UNTIL QUI; 
LETTRES:=1; 
END; 


PARAMETRES"); 


", LETTRES,” 


-26): 


93); 
‘) 


VITESSE :=J 


PROCEDURE TOUCHES: 
VAR 41,42,43,A4:CHAR: 
BEGIN 
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REPEAT 

PAGE (OUTEUT) ; 

WRITELN(” TOUCHES DIRECTIONNELLES"); 
HAN WRITELN; WRITELN; 

WRITE(*HAUT --> 3}; READ(Al): 

WRITELN; 

WRITEC"BAS --> ‘’)};: READ(A2): 

VRITELN; 

WRITEC’GAUCHE --> ’}; READ(A3): 

WRITELN; 

WRITE(’DROITE --> ’j); READ(A4): 


WRITELN; WRITELN: 

WRITE(’OK ? ‘) 
UNTIL OUI; 
HAUT:=A1: 
END; 


BAS:=A2; GAUCHE:=43; DROITE:=A4 


PROCEDURE CHOISIT: 
VAR PT:POINT; 
1:INTEGER: 
PROCEDURE HASARD; 
BEGIN 
WITH PT DO BEGIN 
X:=4+(RANDOM MOD 267): 
Y:=10+(CRANDOM MOD 178) 
END 
END; 
FUNCTION POSSIBLE : BOÜLEAN: 
VAR J:INTEGER: 
BEGIN 
J:=1: 
WHILE J<I DO BEGIN 
IF CABS(TABLELJI.X-PT.X)<5.5 ) 
AND (ABS(TABLE(J).Y-PT.Y)<6,5) 


THEN BEGIN POSSIBLE:=FALSE: EXIT(POSSIBLE) END: 
J:=J+1 
END; 
POSSIBLE : = TRUE 
END: 


BEGIN (#CHOISIT-) 


FOR I:=i TO LETTRES DO 
BEGIN 
REPEAT HASARD UNTIL POSSIBLE: 
TABLEiI):=PT 
END; 
REPEAT HASARD UNTIL POSSIBLE: 
DEPART:=PT 
END; 


LETTRES, VITESSE ’ ,VITESSE): 


PROCEDURE TRACEKI 
BEGIN 
MOVETO{TABLE([I].X,190-TABLE(I).\ 
WCHARÇCCHR(S4+ID): 

END: 


2INTEGER) : 


PROCEDURE DESSINE: 
VAR I:INTEGER: 
BEGIN 

INITTURTLE; 


VIEWPORT(4,27S,4, 





FILLSCREEN(WHITE) ; 
VIEWPORT(0,2793,0,191): 
FILLSCREEN(REVERSE ) : 

LETTRES DO TRACE(I): 


1:=i 


FOR 
ENZ; 


TO 








PROCEDURE JEU: 








PROCEDURE INSTRUCTIONS: 


VAR SCORE: INTEGER: VAR A:CHAR:; 
FINI:BOOLEAN: BEGIN 
A:CHAR; PAGE{OUTPUT) ; 
BEGIN WRITELN(" INSTRUCTIONS"); 
DESSINE; WRITELN; WRITELN; 
SCORE: =0; MRITELN('VOUS DEVEZ RAYER DANS L''ORDRE LES'3: 
BUT: WRITELNC*LETTRES DE L'’’ALPHABET, EN DIRIGEANT LE‘:: 
CRASR:=0; WRITELN{'TRAIT GRACE AUX TOUCHES DE DIRECTION QUI‘): 
DELTAX WRITELNC'SONT, PAR DEFAUT, <I> <J> <K> ET <Mm>.°3; 
DELTAY:=0; WRITELN;WRITELN: 
PT:=DEPART; WRITELN(*ATTENTION, UNE FOIS QU'’IL À DEMARRE, LE‘): 


TENPORISATION:=241-12-VITESSE: 


WRITELNC'TRAIT NE 


S''ARRETE QU’ 


"A LA VICTOIRE"); 





REPEAT WRITELN{’FINALE OÙ A LA COLLISION AVEC LE BORD OU’) 
COURS; WRITELNC'LE RECTANGLE 6X7 CONTENANT UNE LETTRE"): 
IF CRASH = © WRITELN(*ERRONEE.°); 

THEN BEGIN WRITELN; 
WRITECCHR(7)): WRITELN: READ(A) 
SCORE : =SCORE+VITESSE: END; 
TRACE(BUT); 
BUT:=BUT+1; PROCEDURE MENU; 
FINI:=BUT>LETTRES BEGIN 
END PAGE(OUTPUT) ; 
ELSE BEGIN WRITELN(" ORDRALPHABETIX"): 
NOTE(4,100); WRITELN:; WRITELN: 
FINI:=TRUE; WRITELN(*12NSTRUCTIONS"): 


END WRITELN(C*T>QOUCHES DE DIRECTION‘): 


UNTIL FINI; WRITELN(‘’P)ARAMETRES DU JEU‘): 

IF SCORE>SCOREMAX THEN SCOREXMAX:7SCÛRE;: WRITELN(’D)ISPOSITION DES LETTRES"): 

READ(A); WRITELN(/J)EU’>: 

PAGE (OUTPUT); WRITELNC*F3IN’); 

TEXTMODE ; WRITELN; WRITELN; 

WRITELN(’VOTRE SCORE EST DE ‘,SCORE,’ POINTS"): WRITE(’VOTRE CHOIX --> ‘1 

WRITELN(’LE SCORE MAXIMUM ATTEINT AUJOURD’’HUI’): END; 

WRITELN('EST DE *,SCOREMAX,’ POINTS’): 

WRITELN; BEGIN (* ORDRALPHABETIX ») 

READ(A) INIT; 
END; REPEAT 

MENU; 

PROCEDURE INIT: A!RPCARCCUETS TES ES DNS PETITS 
BEGIN CASE A OF 

RANDOMIZE; *1':INSTRUCTIONS: 

: *T': TOUCHES: 










: 2p': 
SCOREMAX:-=0; à 
CHOISIT: *J': 
HAUT:="1"; END 
: UNTIL A=°F°': 






73 PAGE (QUTPU 
DROITE:="K’; SOTOXY(14,12): 
CHARTYPE(6) WRITELN('AU REVOIR") 

END; END. 





LSR A 
Programme ORD2 DERCRRQ Et Et CMP LETTRES 
X DELTAX+1 Fo 80 
.PROC COURS ps arte BCC 50 
.PUBLIC TABLE, LETTRES, BUT SN Se JHP ALLUME 
PUBLIC TEMPORISATION, CRASH 50 JSR CARRE 
PUBLIC DELTAX,DELTAY,PT BEQ PEROU 
«PUBLIC HAUT, BAS, GAUCHE, DROITE ARAUCEE STE DELTA JMP DEPILE 
LDA #OFF 
STOCK .EQu 0 2 A CORRECT  LDA #0 
HIRES .EQU OEO STA CRASH 
COLOR .EQU OE4 JNP_ AVANCE JMP EXIT 
PAGE .EQU 0E6 
KEYBOARD .EQU OC000 ADROITE  STX DELTAY PERDU LOA #1 
KEYSTROB .EQU OCO010 STX DELTAX+1 STA CRASH 
PLOT .EQU 0F457 LDA #1 JNP EXIT 
RAM .EQU 0C088 STA DELTAX 
5 
ROM .EQU OCO8A je él CARRE SEC 
LDA PT 
INTRO LOY #0F LDA PT SBC TABLE, X 
s0 LDA HIRES,Y ADC DELTAX STA STOCK 
STA BLOC, Y su DSi LDA PT+1 
DEY SBC TABLE+i,X* 
BPL 50 ADC DELTAX+1 BNE NON 
STA PT+1 
LDA #7F e LDA STOCK 
STA COLOR re CHP #6 
LDA #20 Pose 8CS NON 
STA PAGE pe SEC 
STA ROX STA' PT+2 LDA TABLE+2,X 
CHECKX  LDA PT+1 SBC PT+2 
ALLUME  LDY PT+1 BEQ CHECKG CHP #7 
LDX PT LDA PT BCS NON 
LDA PT+2 CHP #20. OUI LDA #0 
JSR PLOT BCS PERDU RTS 
JSR DELAI JMP CHECKY NON LDA #1 
CHECKG  LDA PT RTS 
LDA KEYBOARD CMP #a 
BPL AVANCE BCC PERDU DELAI LDY TEMPORISATION 
STA KEYSTROB si DEV 
LDX #0 CHECKY  LOA PT-2 BEQ FIN 
AND #7F CMP #188. LDX #10. 
CMP HAUT BCS PERDU 82 DEX 
BEQ MONTE CMP #4 BNE #2 
— CMP BAS BCC PERDU JMP 51 
BEQ DESCEND FIN RTS 
CHP GAUCHE PILE LDA BUT 
BEQ AGAUCHE ASL A EXIT STA RAM 
CHP DROITE ASL À LDY #0F 
BEQ ADROITE TAX 53 LDA BLOC, Y 
JHP AVANCE JSR CARRE STA HIRES, Y 
BEQ CORRECT DEY 
MONTE STX DELTAX DEPILE  CLC BPL 53 
STX DELTAX+1 TXA RTS 
LDA #OFF ADC #4 BLOC .BLOCK 10 
STA DELTAY TAX 
JMP AVANCE LSR À END 
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Avec l'arrivée du Macintosh, Apple a 
annoncé la création de la famille 
“Apple 32”, regroupant les matériels 
tournant sur processeur 32 bits. 
Etrangement, peu de mots sur la 
gamme Apple 8” ont été pronon- 
cés, comme si les Apple Il (Plus, //e 
et //c) et /// devaient éternellement 
continuer à s'ignorer et rester quasi- 
ment incompatibles l’un avec l’autre. 
Heureusement, voici ProDOS. 


Rendu possible par l’abaissement du 
coût de la mémoire, ProDOS est le 
nouveau système d'exploitation des- 
tiné à remplacer, à terme, le DOS 
3.3 et éventuellement le S.O.S., et 
donc à offrir enfin une certaine 
compatibilité entre la famille Apple Il 
et l'Apple ///. 


L'évaluation qui va suivre est divisée 
en trois grandes parties volontaire- 
ment succintes : 


e une description générale des ca- 
ractéristiques du ProDOS,; 

e l'étude de ses commandes et la 
comparaison à celles du DOS 3.3: 

e un premier regard sur son fonc- 
tionnement interne. 


Caractéristiques 
du ProDOS 


ProDOS a un double objectif: ren- 
dre possible l’utilisation d'un disque 
dur sur Apple II de manière aussi 
simple que celle d’une disquette, et 
permettre à l'Apple /// d'utiliser les 
logiciels de l'Apple II sans devoir pas- 
ser en mode émulation. En bref, les 
fichiers de l’un peuvent être lus par 
l'autre. 


ProDOS ne nécessite aucune modifi- 
cation hardware (pas d'ajout de 
PROM comme lors du passage DOS 
3.2 vers DOS 3.3), mais requiert un 
minimum de 64K de RAM {le DOS 
3.3 tient en 16K). La quasi-totalité 
de la carte langage lui est réservée: 
nous avons par conséquent la dou- 
leur de vous faire part du décès, à 
l'âge de 8 ans, du Basic Integer qui 
n'est pas supporté par ProDOS... 


Des disques durs d'une capacité 
maximum de 32 mega-octets (Mo) 
peuvent être utilisés (le ProFile offre 
5 Mo); un fichier individuel peut 
enfin avoir une taille de 16 Mo, soit 
l'équivalent de 114 disquettes ! 


C'est énorme ! Pour pouvoir s'y re- 
trouver rapidement, ProDOS utilise 
le principe des catalogues hiérarchi- 
sés : un catalogue général fournit une 
liste de sous-catalogues qui, eux- 
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ProDOS à l’essai 


mêmes, peuvent contenir des sous- 
sous-catalogues, et ainsi de suite. Re- 
lativement simple à utiliser, cette mé- 
thode permet de structurer le 
contenu d'un disque, mais pourra 
dérouter l'utilisateur habitué à des 
structures plus simples. Sans cette 
structure hiérarchique, il faudrait, si 
chaque fichier avait une taille de 10 
K, 21 pages d'écran pour lire le cata- 
logue d’un ProrFile ! 


ProDOS gère automatiquement tous 
les sous-catalogues et, en particulier, 
les dates de création et de dernière 
modification d’un fichier, sa longueur 
en octets et son adresse de charge- 
ment. Pour l'instant, il reconnaît seu- 
lement la carte d'horloge Thunder- 
clock, mais les autres fabricants vont 
certainement proposer dans peu de 
Vi des patches pour leurs maté- 
riels. 


Un des principaux points forts de 
ProDOS réside dans sa gestion beau- 
coup plus rapide des fichiers, par 
rapport non seulement à celle du 
DOS 3.3, mais également à l'égard 
des versions ‘’’dopées” telles que 
ZDOS, ProntoDOS, Diversi-DOS, 
etc. J'ai obtenu les temps suivants 
(en secondes) avec un fichier binaire 
de 32 K: 

DOS 3.3 ZDOS 2.0 ProDOS 1.0 


BSAVE 46 39 18 
BLOAD 33 8 5 


Enfin, ProDOS est livré avec plu- 
sieurs utilitaires équivalents à FID et 
COPYA, ainsi qu'avec un pro- 
gramme de conversion des fichiers 
séquentiels DOS 3.3: les fichiers à 
accès direct doivent d’abord être 
transposés en fichiers séquentiels, 
convertis en ProDOS, puis retranspo- 
sés en fichiers à accès direct .… Call 
Apple a publié en avril 1984 un pro- 
gramme effectuant cette double 
transposition. 


En conclusion partielle, ProDOS est 
le quatrième grand système d'exploi- 
tation pour Apple Il disponible en 
France. Hormis le DOS 3.3, il va de- 
voir compter avec le Pascal, le CP/M, 
et le MEM/DOS à qui il pourrait faire 
du tort. 


Les commandes 
du ProDOS 


Pour des raisons de place, cette 
étude se borne à indiquer les diffé- 
rences entre les commandes du 
ProDOS et celles du DOS 3.3, et né- 
cessite donc une connaissance prati- 
que de ce dernier. Les commandes 
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du ProDOS sont, en effet, volontaire- 
ment similaires à celles du DOS 3.3: 
il n’y a donc pas nécessité d’appren- 
dre une nouvelle gamme de 
commandes, et l'utilisateur rôdé au 
DOS 3.3 s'accoutumera très rapide- 
ment à ce nouveau système d'exploi- 
tation. 


Sept types de fichiers existent sous 
ProDOS : les fichiers de programmes 
Basic, textes, et binaires nous sont 
déjà familiers. S'y ajoutent les fichiers 
systèmes (ProDOS lui-même consti- 
tue un fichier, contrairement au DOS 
3.3 qui se trouve toujours sur les 3 
premières pistes d’une disquette), les 
fichiers binaires relogeables (l'équiva- 
lent des fichiers R du DOS Toolkit), 
les fichiers de variables (qui contien- 
nent les variables d'un programme 
Applesoft), et enfin les sous-catalo- 
ques (considérés comme des fichiers 
à part entière et pouvant donc être 
lus ou écrits). En outre, l'utilisateur a 
la possibilité de définir 8 types sup- 
plémentaires de fichiers. 


Hiérarchie des catalogues 


La hiérarchisation des catalogues est 
facilitée par le PREFIX : supposons 
que sur un disque, baptisé DISQUE1 
lors de son initialisation, existent des 
fichiers de gestion, de jeux, des utili- 
taires, etc. On peut créer un sous-ca- 
talogue nommé GESTION contenant 
tous les fichiers de gestion, puis un 
sous-sous-catalogue baptisé IMPOT 
qui contient plusieurs fichiers, met- 
tons un par année. Pour appeler un 
de ces fichiers, il faut une commande 
telle que, par exemple : 


OPEN DISQUEL/GESTION/IMPOT/ANNEE1 


Remarquez que l'on ne précise ni le 
slot ni le drive, ProDOS identifiant 
(comme Pascal) le nom logique du 
volume (DISQUE1) avec son adresse 
physique (slot, drive). Les ”/” (pro- 
noncez slash) servent de délimiteurs 
entre les identifiants qui doivent 
comporter au plus 15 caractères 
(moins que sur DOS 3.3, mais plus 
que sur Pascal ou CP/M, et franche- 
ment mieux que les 8 caractères re- 
connus par l'IBM PC ..) pris parmi 
les lettres, les chiffres ou le point. La 
longueur totale de la commande, 


_hors l'instruction OPEN, ne peut ex- 


céder 64 caractères. Pour alléger la 
syntaxe, il est possible de préciser un 
préfixe par défaut avec l'instruction : 


PREFIX /DISQUE1/GESTION/IMPOT/ 

et la commande ci-dessus devient 
plus simplement : 

OPEN ANNEEI1 











Les commandes disparues 


Six commandes du DOS 3.3 ont dis- 
paru : INIT (il faudra charger et exé- 
cuter un programme de formatage), 
INT et FP (le Basic Integer n’est pas 
supporté). De plus, MAXFILES 
(ProDOS gère directement les alloca- 
tions mémoire et tolère 8 fichiers ou- 
verts simultanément), MON et 
NOMON (en contrepartie, la com- 
mande TRACE de l’Applesoft fonc- 
tionne correctement) sont purement 
et simplement ignorés par ProDOS. 


Les commandes nouvelles ou 
modifiées 


Plusieurs instructions concernent la 
manipulation des catalogues : 


CATALOG garde son sens habituel 
et affiche les fichiers dépendant du 
préfixe donné, avec indication de la 
date de dernière modification et des 
capacités libre et occupée du vo- 
lume : les tailles sont exprimées en 
blocs correspondant à 2 secteurs, soit 
512 octets. En effet, ProDOS est 
(comme le SOS) de filiation Pascal, 
ce qui explique la coïncidence de la 
taille de bloc. 

CAT fournit une version plus 
complète du catalogue, sur 80 colon- 


nes. 
PREFIX, déjà mentionné, permet de 
modifier le préfixe. 

CREATE permet de créer un fichier 
catalogue. 

— : cette nouvelle commande très 
pratique (prononcez ‘’’dash”) peut 
être utilisée à la place de RUN, 
BRUN ou EXEC. 

FLUSH équivaut à un CLOSE, mais 
laisse le fichier ouvert. 

FRE est une commande de net- 
toyage mémoire beaucoup plus ra- 
pide que celle de l’Applesoft. 

STORE et RESTORE permettent res- 
pectivement de stocker sur disque et 
de rappeler les variables d’un pro- 
gramme Applesoft. 


Enfin, ProDOS autorise l’adjonction 
de nouvelles commandes à son vo- 
cabulaire, à la différence du DOS 3.3 
où il fallait pour cela savoir jongler 
en assembleur. 


Les commandes améliorées 


Les autres instructions de ProDOS 
sont semblables à celles du DOS 3.3, 
mais comportent de très nombreuses 
améliorations qu'il serait trop long de 
détailler ici; ainsi, il devient possible 
de préciser l'adresse de fin d’un pro- 
gramme binaire (BSAVE ECRAN, 
A$2000,E$3FFF), ou de charger un 
programme Applesoft puis de l’exé- 
cuter à partir d’une ligne précise 
(RUN PROGRAMME, @200). 


Les instructions APPEND et CHAIN 
fonctionnent correctement sous 
ProDOS. Enfin, les commandes IN# 
et PR# peuvent préciser directement 
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l'adresse d'une routine d'entrée ou 
de sortie. 


Conversion des programmes 
Applesoft 


La programmation sous ProDOS est 
donc sensiblement la même que sous 
DOS 3.3 et la conversion de pro- 
grammes en Applesoft ne devrait pas 
poser de problèmes majeurs. 


Il existe néanmoins une différence 
fondamentale dans l’interception des 
commandes entre le DOS 3.3 et 
ProDOS. Le DOS 3.3 contrôle si, au 
début d'une ligne, on veut imprimer 
le caractère Ctrl-D. ProDOS, pour sa 
part, contrôle chaque instruction à 
travers la routine TRACE; lorsqu'il 
rencontre une instruction PRINT, il 
vérifie si le premier caractère est un 
Ctri-D. Conclusion : l'habitude de 
certains (bons) programmeurs de 
faire précéder un Ctrl-D par un re- 
tour chariot, en définissant D$ — 
CHR$(13) + CHRS$(4), est mainte- 
nant à bannir. Deuxième implica- 
tion: cette méthode d’'interception 
ralentit quelque peu l'exécution d’un 
programme (environ 5 à 8%) mais, 
en contrepartie, le nettoyage de la 
mémoire et la gestion des fichiers 
sont beaucoup plus rapides avec 
ProDOS. 


Fonctionnement interne 


Cette dernière partie s'adresse aux 
habitués de l’assembleur; il n’est pas 
question d'indiquer dans cette pre- 
mière présentation l’organisation dé- 
taillée des routines en mémoire ou 
des pointeurs physiques sur disque 
de ProDOS, mais plutôt de fournir 
un aperçu de son fonctionnement. 


Historiquement, on divise le DOS 
3.3 en trois modules distincts: le 
Captain” interprète les commandes, 
le ‘File Manager” gère l'allocation 
des fichiers sur une disquette, et 
"RWTS”, enfin, assure la lecture, 
l'écriture ou le formatage d'un sec- 
teur. 


RWTS est sensiblement identique 
sous ProDOS, sauf qu'il est incapa- 
ble de formater un disque et a été 
rebaptisé ‘Disk Driver”. C'est d'’ail- 
leurs la même routine qui est utilisée 
sous Pascal et CP/M; seul son équi- 
valent sous DOS 3.2, avec ses pistes 
de 13 secteurs, diffère. Bien évidem- 
ment, le Disk Driver est un module 
différent lors de l'emploi d'un disque 
dur. 


ProDOS raisonne en blocs, chaque 
bloc étant une unité logique de 2 
secteurs physiques. Il y a donc 35 * 
16 / 2 = 280 blocs sur une disquette 
normale. 


À l'inverse du DOS 3.3 qui réside in- 
tégralement en mémoire, ProDOS se 
compose de deux parties distinctes, 


la deuxième étant chargée en fonc- 
tion des besoins. 


Noyau de ProDOS : le Kernel 


Le ProDOS Kernel contient l’équiva- 
lent du File Manager et de RWTS; il 
occupe l’ensemble de la carte lan- 
age (à l'exception de la zone 
$D000-$DOFF de la Bank 2), ainsi 
qu'une petite zone ($BFOO-$BFFF) 
destinée à ”’switcher”’ entre les diffé- 
rentes parties hautes de la mémoire 
et à recevoir des appels de program- 
mes externes. 

Cet ensemble est également appelé 
ML. (pour Machine Language In- 
terface). 


Il peut être appelé directement par 
un programme en assembleur. Son 
équivalent sous DOS 3.3 serait un 
point d'entrée unique pour l'appel de 
RWTS et du File Manager, avec une 
table des paramètres également uni- 
que. La syntaxe d’appel est : 


JSR MLI :MLI=$BFO0 

DFB CMDNUM :type de commande 
de fichiers (sauf Basic) 

DA PARAM :adresse de la table des 
paramètres 

BNE ERREUR :en retour, accumula- 
teur=type d'erreur 


Les commandes disponibles concer- 
nent la lecture ou l'écriture d’un bloc 
ou d'un fichier texte, le préfixe, etc. 
Deux utilitaires livrés avec ProDOS 
facilitent l'apprentissage : l'EXERCI- 
SER permet d'étudier l'exécution des 
appels et BUGBYTER (voir l'analyse 
dans ce numéro) permet de ”’debug- 
ger”’ un programme assembleur. 


Interface avec l’Applesoft : 
BASIC.SYSTEM 


Le noyau de ProDOS permet de 
gérer tous les fichiers qui ne sont pas 
des programmes Applesoft. En effet, 
pour utiliser ces derniers, ainsi que 
l’interpréteur de commandes, il est 
nécessaire de charger une deuxième 
partie de ProDOS, qui porte le nom 
BASIC.SYSTEM et occupe les adres- 
ses $9600-$BEFF. 


Notons que HIMEM se trouve alors à 
la même position qu'avec le DOS 
3.3; de toute façon, il est préférable 
avec ProDOS de ne pas mettre d’ins- 
truction HIMEM dans un programme 
Applesoft (et surtout pas un HIMEM 
qui ne correspondrait pas à une li- 
mite de page mémoire), ProDOS gé- 
rant lui-même l'allocation de la RAM 
par sections de 256 octets. 


Oubliez HELLO, apprenez START- 
UP. Lors du boot d'une disquette, 
ProDOS n'exécute pas automatique- 
ment un programme Applesoft pré- 
cisé lors de son initialisation, mais re- 
cherche dans le catalogue principal 
un fichier nommé STARTUP. S'il le 
trouve, celui-ci est exécuté quelque 
soit son type (Applesoft, assembleur, 
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fichier Exec); il est de la responsabi- 
lité de ce programme de charger ou 
non le BASIC.SYSTEM. 


Certaines adresses de page zéro sont 
utilisées par ProDOS : $3A-$3F par 
RWTS, F40-$4E par d’autres routi- 
nes qui les rétablissent avant de ren- 
dre la main. Les vecteurs de la page 
3 sont également présents sous 
ProDOS. 


Format d’une disquette 


Rappelez-vous que, sous ProDOS, il 
faut penser en blocs de 512 octets, 
et non plus en secteurs de 256 
octets. Les 280 blocs d’une disquette 
sont numérotés dans l'ordre croissant 
des pistes : 0 à 7 sur la piste O0, 8 à 
15 sur la piste 1, etc. 


Les deux premiers blocs contiennent 
le ’Loader”, c'est-à-dire le pro- 
gramme, chargé et exécuté par la 
routine du contrôleur de la disquette, 
au lui-même charge le ProDOS Ker- 
nel. 


Les blocs 2 à 5 contiennent le catalo- 
gue principal de la disquette (on dit 
aussi table des matières), à raison de 
13 fichiers par bloc (d’où une limite 
de 52 fichiers dans le catalogue prin- 
cipal, étant entendu que certains des 
fichiers peuvent être des sous-catalo- 
ques). 


Le bloc 6 correspond à la carte du 
volume (Volume Bit Map”) qui 
fonctionne comme la VTOC du DOS 
3.3; chaque bit du bloc indique si 
l'un des blocs du volume est libre ou 
occupé. Sur disque dur, il peut exis- 
ter jusqu’à 16 blocs formant la carte 
du volume et représentant 16 x 512 
* 8 =65536 blocs donc 33.554.432 
octets ! Sur une disquette, seuls les 
35 premiers octets, représentant les 
280 blocs, sont utilisés. 


Sous DOS 3.3, un fichier utilisait sys- 

tématiquement au moins un secteur, 

appelé TSL ("Track Sector List”), 
qui donnait les adresses des secteurs 
de données de ce fichier. Une philo- 

sophie moins gourmande en place a 

été adoptée avec ProDOS : 

e un fichier de moins de 512 octets 
(1 bloc) est directement accessible: 

e un fichier d'une taille comprise 
entre 2 et 256 blocs nécessite un 
bloc d’index; 

e un fichier d’une taille supérieure 
utilise un bloc d’index principal 
qui pointe vers au plus 128 blocs 
d'index secondaires, eux-mêmes 
pointant vers les blocs de données 
(ouf!}. 


Il n’est pas question ici d'examiner 
individuellement la valeur des comp- 
teurs et pointeurs de ces blocs systè- 
mes (il faudrait y consacrer un article 


entier). Néanmoins ceux-ci devront 
être étudiés plus attentivement par 
ceux qui souhaitent développer des 
utilitaires : il faudra en particulier 
analyser les commandes UNDELETE 
(’restoration” d'un fichier DELETé) 
et VERIFY (similaire à celle du DOS 
3.3; ProDOS ne vérifie pas l'intégrité 
physique d'un fichier, mais unique- 
ment son existence). 


Conclusion 


ProDOS offre incontestablement des 
améliorations considérables par rap- 
port au DOS 3.3, même si on reste 
un peu sur sa faim (pas de gestion 
automatique des fichiers séquentiels 
indexés, que l'on était pourtant en 
droit d'attendre). Apple livre mainte- 
nant les //e et //c uniquement avec 
ProDOS, et souhaite en faire le nou- 
veau standard. Il ne faut cependant 
pas espérer (craindre ?) la disparition 
prochaine du DOS 3.3, d'une part 
car ProDOS est très gourmand en 
mémoire (il occupe trois fois plus de 
place), d'autre part car plus de 
10.000 logiciels pour Apple tournent 
sur DOS 3.3 (soit dit en passant, plus 
que CP/M) : à ma connaissance, des 
programmes vedettes tels que Visi- 
Calc ou Apple Writer ne supportent 
pas (encore) ProDOS. 





La compatibilité de l’Apple //c 


Des bancs d'essai de l'Apple //c figu- 
rent dans toutes les revues (Pom's a 
publié 2 "points de vue” dans son 
précédent numéro). Des démonstra- 
tions sont faites dans toutes les bouti- 
ques. Le constructeur propose une 
documentation bien fournie. Aussi 
avons-nous choisi d'aborder ici l’Ap- 
É lc sous un angle un peu particu- 
jer. 


Vous êtes un familier de l'Apple //e. 
Vous possédez de nombreux logiciels 
du commerce (et d'autres que vous 
avez écrits). 

Vous disposez de périphériques clas- 
siques : lecteurs de disque, moniteur, 
imprimante (par exemple la Dot Ma- 
trix Printer d'Apple). 

Vous êtes également accoutumé à 
utiliser des périphériques moins clas- 
siques : téléviseur couleur relié à une 
carte RGB, poignées de jeu. 

Vous travaillez couramment sur écran 
80 colonnes. 

Vous avez également une carte avec 
modem intégré, qui vous simplifie 
bien la vie. 
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À quoi pouvez-vous vous attendre si 
vous décidez de ‘passer à l'Apple 
lc” ? C'est à cette question, à notre 
sens fondamentale, que nous allons 
essayer de répondre. 


Le premier contact 


La surprise du poids et de la taille. 
Vous vous y attendiez bien sûr, mais 
cette petite boîte au design agréable 
surprend toujours. Autre surprise, 
moins agréable celle-là : l’alimenta- 
tion, séparée, relativement lourde 
(1,4 kg environ), qui ne tient pas 
dans la sacoche. C'est déjà moins 
portable. 


Il y a aussi le problème de l'écran. 
Faisons confiance à Apple, qui an- 
nonce pour la fin de l’année un 
écran plat rabattable de 24 lignes par 
80 colonnes. 


Soulevons le couvercle... Non, mau- 
vaise habitude ! On n'ouvre pas l'Ap- 
ple /c. C'est un système de type 
fermé, et, en principe, vous pouvez 
tout faire sans l'aide des fameux 
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connecteurs d'extension de l'Apple 
lle. Habituez-vous à brancher direc- 
tement vos périphériques sur la bat- 
terie de connecteurs spécialisés, à 
l'arrière de l'appareil. 


Branchons. C’est simple, avec le lec- 
teur intégré et les connecteurs exter- 
nes. Petite désillusion, si vous n'y 
aviez pas fait attention, ni votre Dot 
Matrix, ni vos lecteurs de disques de 
l'Apple //e ne sont utilisables. 

La Dot Matrix est une imprimante 
parallèle, la sortie imprimante de 
l'Apple //c est une série”. Il va vous 
falloir acheter une autre imprimante, 
l'Image Writer d'Apple (la même que 
pour Mac Intosh) par exemple. 

Le contrôleur de disques n’a pas les 
mêmes caractéristiques que celui de 
l'Apple //e. 


Allons un peu plus loin 
dans la découverte 
Votre carte RGB ne trouve évidem- 


ment pas sa place, puisqu'il n’y a pas 
de connecteurs d'extension. Mais 
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vous trouverez, en série, un adapta- 
teur RGB fonctionnant sur prise Péri- 
tel. Pas de difficulté de ce côté. 
Même le son est renvoyé sur votre 
téléviseur, ce qui peut donner des 
effets assez spectaculaires sur certains 
jeux. Si vous possédez la disquette 
Pom's No 11, essayez-la, vous serez 
surpris de la relative netteté de la 
voix synthétique. Quant au fonction- 
nement sur moniteur noir et blanc, 
pas de problème. Vous utilisez le 
même cordon de raccordement. 


À propos de moniteur, la position de 
notre constructeur préféré semble 
être du style "faites ce que je dis, ne 
faites pas ce que je fais”. Vous trou- 
vez dans le manuel d'installation : 
"ATTENTION - ne posez pas le télé- 
viseur (ou quoi que ce soit d’autre) 
sur l'ordinateur, ce serait trop lourd 
et bloquerait les ouvertures de venti- 
lation”. Et la couverture du manuel 
Utilitaires Système représente... un 
Apple //c avec un moniteur qui sem- 
ble posé dessus (certes incliné pour 
dégager les ouvertures, mais quand 
même...). En fait, il s'agit du nou- 
veau moniteur Apple, avec son sup- 
port ‘étudié pour”. 


Vos manettes de jeu où votre joystick 
seront utilisés sans difficulté SI vous 
avez une version se branchant sur le 
connecteur arrière de votre Apple 
lle : la prise est identique. 


Pas de place non plus pour votre 
carte 80 colonnes, mais c'est un dis- 
positif qui se trouve en série sur l'Ap- 
ple //c. Avec commutation manuelle 
par poussoir sur l'ordinateur ou re- 
connaissance directe par le pro- 
gramme. 


Mais vous allez tomber de haut en 
abordant le chapitre des communica- 
tions : bien sûr, votre carte modem 
n'a pas sa place, mais de plus, RIEN 
d'analogue ne peut la remplacer. 
Vous voici revenu au Moyen Age, au 
temps du modem acoustique par 
exemple. Pour un portable... 


Le clavier 


Doux, agréable à manier, il vous ré- 
servera quelques surprises. 


Fini le double clavier AZERTY/ 
QWERTY de l'Apple /'e, si discuté. 
Vous avez un AZERTY normalement 
constitué. Les touches sont disposées 
EXACTEMENT de la même façon 
que sur le modèle //e, à l'exception 
de la touche RESET. 


Une originalité en ce qui concerne le 
fonctionnement majuscules/minus- 
cules. Sur l'Apple //e, la touche 
"Caps Lock” ne verrouillait que les 
26 lettres de l'alphabet, mais ni les 
chiffres ni les signes, ce qui est parti- 
culièrement énervant quand on doit 
frapper beaucoup de valeurs numéri- 





ques (ce n’est pas rare en informati- 
que...). Utiliser par exemple un ta- 
bleur en AZERTY relève plus du 
numéro de haute voltige que du mo- 
dèle de convivialité! Ici, ‘Caps 
Lock” verrouille tout, ce qui est très 
intéressant mais présente néanmoins 
des inconvénients, si on veut cett 
fois utiliser couramment "—” "=" "" 
où ‘,” par exemple. Solution adop- 
tée : les touches majuscules fonction- 
nent comme des inverseurs. Si Caps 
Lock est enfoncée, elles font passer 
en minuscules. Sinon, elles font pas- 
ser en majuscules. Il faut un peu de 
temps pour s'y habituer, mais c'est fi- 
nalement assez commode. 


NDLR : Cela vous posera des pro- 
blèmes cependant si vous utilisez 
aussi un IBM PCXT qui se 
comporte différemment. 


Autre originalité : vous pouvez main- 
tenant taper les commandes, ainsi 
que les instructions de vos program- 
mes Applesoft, en minuscules aussi 
bien qu'en majuscules : la conversion 
est faite automatiquement en majus- 
cules. Vous n'avez plus à craindre le 
méchant "SYNTAX ERROR‘ si vous 
tapez catalog” au lieu de "CATA- 
LOG”. 


Et pour les fanatiques du QWERTY ? 
Ils ne sont pas totalement oubliés car 
une touche permet de simuler un 
clavier QWERTY sur le clavier 
AZERTY. Mais ce n'est qu'une roue 
de secours : la signification QWERTY 
des touches n'étant pas indiquée sur 
celles-ci, il faut taper en aveugle. 
Tout le monde ne peut pas le faire. 


Systèmes d'exploitation 
et langages 


Le système d'exploitation standard 
de l'Apple //c est PRODOS, qui peut 
aussi équiper l'Apple //e. De même, 
l'Apple //c accepte le DOS 3.3 (mais 
pas les versions antérieures du DOS. 
Vous devrez convertir, ce qui est sim- 
ple). 


Vous pouvez aussi travailler en Pas- 
cal, en SUPER-PILOT ou en un 
LOGO nouveau, permettant une uti- 
lisation optimale de la mémoire cen- 
trale. Quelques frais à prévoir donc 
(après essai sommaire, il semble que 
Edi-Logo, dans sa version écrite pour 
le //e, fonctionne sur le //c). 


Mais - et c'est là où le bât blessera 
de très nombreux utilisateurs - pas 
question de Soft Card, donc de 
CP/M. Finis les logiciels prestigieux 
comme dBASE II (que rien d'appro- 
chant ne vient remplacer), ou 
WORDSTAR. Bons à jeter aussi vos 
propres logiciels en Basic Microsoft. 

Même ‘punition” pour les adeptes 
de MEM/DOS, au moment où les 
auteurs de ce système annoncent 
précisément plusieurs nouveautés. 


L'Apple //c est un peu un ordinateur 
pour père de famille peu soucieux 
d'innovation et d'utilisation non stan- 
dard. A ce titre, certains le considère- 
ront comme une régression par rap- 
port au modèle //e, malgré ses 
nombreux progrès technologiques et 
sa capacité de mémoire étendue. 
C'est sans doute pour cela que, pa- 
raît-il, le constructeur vise pour une 
bonne part le marché du ‘premier 
ordinateur”. 


C'est aussi pourquoi nous n'avons 
pas testé des logiciels très particuliers 
- dont sont souvent friands les lec- 
teurs de Pom's - tels que HAIÏIFA, 
PLE ou la gestion de masques, par 
exemple. 

Bien entendu, nous n'avons pas testé 
non plus les utilitaires classiques tels 
que copie, renumérotation, fusion de 
programmes, … mais pour une autre 
raison : une version Apple //c accom- 
pagne la machine (en ProDOS, sur 
la disquette Utilitaires Système). 


Les langages utilisés dans les pro- 
grammes testés se répartissent entre 
Applesoft, Pascal UCSD, assembleur 
et même Basic Entier, bien que ce 
dernier soit fortement tombé en dé- 
suétude. 


Vos programmes 


Selon le constructeur, "90 à 95 % 
des programmes écrits pour Apple Il 
ou Apple //e sont compatibles Apple 
{/e”. Si l'on excepte les logiciels fonc- 
tionnant sous un système d'exploita- 
tion non supporté, cela paraît vrai 
quantitativement. Nous avons fait un 
certain nombre d'essais et aucun lo- 
giciel essayé ne s'est avéré totale- 
ment impropre à fonctionner sur //c, 
mais certains logiciels de premier 
plan sont pratiquement inutilisables. 


Nous aurons l'occasion d'examiner 
un certain nombre de dyusfonctionne- 
ments, cas par cas. 


Par ailleurs, nous avons limité nos 
tests à des logiciels n'exigeant qu'un 
seul lecteur de disques (ce qui éli- 
mine par exemple Business Graphics 
ou Think Tank). 

Enfin, ne perdons jamais de vue que 
les logiciels testés sont des logiciels 
écrits pour l'Apple //e. D'ores et déjà. 
de nombreux auteurs proposent des 
logiciels nouveaux, ou des versions 
nouvelles, spécialement écrits pour le 
lc. 


Nous n'avons rencontré aucune diffi- 
culté tenant à la reconnaissance de la 
carte” 80 colonnes, ni au niveau de 
l'adaptateur RGB. Relativement à ce 
dernier point, nous ne notons pas 
d'amélioration par rapport aux résul- 
tats obtenus avec la carte “Chat 
Mauve” sur Apple //e pour ce qui est 
de la qualité du texte sur écran gra- 
phique. C'est toujours très mauvais, 
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sauf pour les logiciels dont les au- 
teurs ont eu la bonne idée de choisir 
des solutions d'écriture monochrome. 


Les résultats des tests qui suivent ne 
visent nullement à constituer des 
bancs d'essai des logiciels correspon- 
dants sur Apple //c. Notre objectif 
était de vérifier si ces logiciels étaient 
acceptés, et si des dysfonctionne- 
ments évidents se produisaient. Il est 
fort possible que certaines options 
posent des problèmes que nous 
n'avons pas rencontrés au cours de 
ce bref tour d'horizon. 


Les tableurs 


L'éternel Visicalc subit l'épreuve avec 
succès, dans sa version 40 colonnes. 
Il en est de même pour Magicalc, y 
compris dans son option 80 colon- 
nes. 


Multiplan en revanche se tire moins 
bien d'affaire. Certes, les options que 
nous avons testées fonctionnent cor- 
çectement. Mais il existe un défaut 
rédhibitoire : les caractères sous le 
curseur sont totalement illisibles (que 
ce curseur se trouve à l'intérieur du 
tableau ou sur la ligne d'entrée de 
données). Une version spéciale 
Apple //c est donc nécessaire (elle 
existe peut-être). Vous pouvez, utili- 
sateur du //e, remiser votre disquette 
système au magasin des accessoires 
inutiles. À moins que le fournisseur 
ne propose un échange... 


Pas de Calcstar bien sûr (CP/M). 
Les traitements de texte 


Magic Window II (Autotexte en Fran- 
çais) fonctionne normalement, ainsi 
que son complément Magic Mailer 
(Autocourrier). 


Î y à en revanche des problèmes 
pour Apple Writer //e. La ligne d'état 
du système est perturbée par des 
taches bizarres (interférence, paraît-il, 
avec le système de gestion des 
icônes spécial à l'Apple //c). Toute- 
fois, cet inconvénient n'empêcherait 
pas d'utiliser le logiciel {la chance 
veut que les dites tâches ne recou- 
vrent pas les mentions essentielles 
telles que position du curseur ou ca- 
pacité de mémoire utilisée), si ne s’y 
ajoutait le même défaut que dans le 
cas de Multiplan: caractères sous 
curseur illisibles (y compris le nom 
du fichier qui est toujours totalement 
illisible). A noter qu'on dispose de 
46845 caractères, au lieu de 27645 
sur le //e. 

Même remarques donc que pour 
Multiplan, ce qui met hors course 
une seconde vedette. Et bien sûr pas 
de Wordstar. 


Les gestionnaires de fichiers 


Tout va bien pour les propriétaires 
de Visifile et de CX Multigestion (en 
40 colonnes), d'Omnis (malgré la 
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jonglerie d'utilisation avec un seul 
disque), de P.F.S., de Visidex. Même 
le vieux Doc Database (écrit en Basic 
entier, sous DOS 3.2, donc après 
transposition en DOS 3.3) passe sans 
problème. | 


Mais voilà. Pas de dBASE II (CP/M). 
Et pas de produit de remplacement. 
Certes, Omnis 3 est annoncé; mais il 
nécessitera 3 lecteurs de disques, et 
ne pourra donc pas tourner sur 
Apple //c, qui ne peut être muni que 
de 2 lecteurs (sauf à travailler sur dis- 
que dur?) À quand une VRAIE 
base de données sous ProDOS ? 


Les éditeurs graphiques 


Nous avions quelques craintes, 
compte tenu des différences relative- 
ment importantes dans le système de 
gestion de l'écran haute résolution. 
Elles n'étaient pas fondées. 


Nous n'avons pas pu faire l'essai de 
Business Graphics, qui exige 2 lec- 
teurs de disques. Mais Visiplot (qui 





donne des tracés couleur sur écran 
de bonne qualité) aussi bien que 
Charts Unlimited passent la rampe 
sans difficulté. De même que Mat- 
graph (Pom'’s No 10). 


Quelques programmes divers (écrits 
par l’auteur) faisant appel aux pages 
graphiques haute résolution 1 ou 2 
n'ont pas posé d'avantage de problè- 
mes. 


Programmes de simulation et 
jeux 


Tous ceux que nous avons essayés 
ont fonctionné correctement, ce qui 
ne veut pas dire qu'il en sera tou- 
jours de même. 


C'est dans ce domaine que la 
connexion double avec le téléviseur 
(RGB plus son) joue pleinement son 
rôle. De belles images (comme par 
exemple dans Adventure to Atlantis 
ou Twerps), et des bruits réalistes (on 
peut monter la sono”, ce qui doit 
plaire à nos chères têtes blondes...). 


Des simulations à vocation pédagogi- 
que écrites par l’auteur ont égale- 
ment donné des résultats satisfai- 
sants. 


En résumé 


L'Apple //c apparaîtra aux posses- 
seurs d'Apple //e comme une ma- 
chine agréable à utiliser et que l’arri- 
vée d'un écran plat rendra vraiment 
portable. À ceci s'ajoute la prochaine 
disponibilité de divers types de batte- 
ries rechargeables, dont sans doute 
un modèle léger qui tiendrait dans la 
sacoche de transport. 


Chacun appréciera le clavier, la liai- 
son Péritel en série, le lecteur de dis- 
quette intégré, avec l'avantage d’une 
totale compatibilité avec le //e au ni- 
veau des supports, mais en regrettant 
parfois d’en rester aux 140K. Cet in- 
convénient devrait être rapidement 
compensé par la possibilité de 
connecter un disque dur, où un mini- 
disque souple 31/2 (type Macin- 
tosh). 


ET MOI Œ 
TRANSFO | 


L'utilisation des logiciels écrits sous 
DOS ou Pascal ne posera guère de 
problèmes, avec une restriction pour 
deux des logiciels classiques les plus 
prisés : Multiplan et Apple Writer. 
Mais n'oublions pas la venue d'Apple 
Works, qui combine, avec l'utilisation 
de la souris, tableur, traitement de 
texte et gestionnaire de fichiers, dans 
des conditions satisfaisantes grâce à 
la capacité mémoire augmentée 
(ainsi bien entendu que de nom- 
breux logiciels nouveaux, écrits spéci- 
fiquement pour l'Apple //c). 


Les ”classiques”, qui ne sont pas à la 
recherche de solutions plus ou moins 
bricolées, devraient être de futurs uti- 
lisateurs heureux de l'Apple //c, avec 
comme seul vrai regret, pour nombre 
d’entre eux, l'absence de CP/M et du 
cortège de logiciels de premier plan 
écrits sous ce système d'exploitation. 


Les ”bidouilleurs” … feraient mieux 
de s'abstenir. 
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Analyse de la VTOC 


Guy d'Herbemont 


Voici un petit programme d'inspec- 
tion de la VTOC (Volume Table Of 
Contents) d'une disquette en DOS 
3.3; il pourra, je l'espère, être utile 
aux débutants qui souhaitent com- 
prendre les mécanismes internes du 
DOS, ainsi qu'aux programmeurs 
chevronnés qui désirent une routine 
rapide illustrant la place restante dis- 
ponible sur disque. 


Pour rappel, la VTOC est la table 
des matières d’une disquette, et le 
point d'entrée obligatoire pour toutes 
les opérations sur les fichiers. 


Le programme affiche d’abord un 
dump de l'en-tête de la VTOC (pour 
plus de détail, consultez le Manuel 
DOS d'Apple, page 125), puis le 
schéma d'occupation des pistes et 
secteurs. Enfin, il indique les nom- 
bres de secteurs libres et occupés. 


Le fonctionnement du programme [e) 
est très simple et se prête à toutes 1 
sortes d’ajouts possibles: il est numé- 2 
roté à partir de 61000 (pour pouvoir 
être utilisé comme sous-programme) 3 
et commence par un appel au DOS 4 
pour lire la VTOC actuelle. Après 5 
avoir copié celle-ci (par la routine de 6 
S.H.Lam Voir Pom's 2) pour 
qu’elle débute à une limite de page cé 
et facilite ainsi la lecture avec le ma- 8 
nuel, le programme enchaîne vers 3 
l'affichage des pistes 0 à 17, puis 18 10 
à 34 sur les colonnes de droite. 11 
La sous-routine d'affichage calcule 12 
pour chaque secteur son statut (libre 13 
si le bit est à 1, occupé sinon), met à 14 
jour le compteur de secteurs libres, et 
affiche le tout. 15 
. 16 
À noter que ce programme ne modi- 17 


fie pas le DOS. Il ne fonctionnera ce- 
pendant pas avec des DOS placés à 


9700- O4 11 
3708- O0 O0 
3710- O0 O0 
3718- 00 00 
9720- 00 O0 
9728- 00 00 
93730- 1F O1 


012Z34567S8SABCDEF 


0000000000000000 
0000000000000000 
O000000000000000 
0000000000000000 
O0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 


carte langage), mais pourra néan- 
moins examiner des VTOC situées à 
des endroits exotiques, pourvu que 


le 


DOS chargé en 


connaisse leurs adresses 





Exécution du programme : Premier écran 


Exécution du programme : Second écran 


0123456789ABCDEF 


0000000000000000 
0000000000000000 
1111111111111000 
1111111111110000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
O000000000000000 
0000000000000000 
1111000000000000 
0000000000000000 
1=SECTEUR LIBRE 


mémoire 





une adresse inhabituelle (32K ou OCCUPES=S31, LIBRES=29, TOTAL=S5S60 
1 REM xxx PROGRAMME DISQ.VTOC ##x 61060 PRINT SPC( 3)A$S: PRINT :A = 4606 
2 REM +*x AFFICHE VTOC DOS 3.3 ## 7:B = 46135:5 = 1:17 = 4: GOSUB 61 
61010 CALL 45047: POKE 72,0: TEXT : HOM 200: REM PISTES O-17 
E : REM BUFFER=46011 61070 VTAB 1: HTAB 24: PRINT AS: PRINT 
61020 DEF FN P(X) = 256 * PEEK (CX) + tA = 46139:B = 46203:S = 21:T = 2 
PEEK (X + 1) 4: GOSUB 61200: REM PISTES 18-34 
61030 DEF FN B(X) = X > 2 * INT (X > 61080 HTAB T: PRINT “1=SECTEUR LIBRE" 
2): REM O=PAIR,1=IMPAIR 610930 PRINT : PRINT ‘“OCCUPES="S5S60 - N'“", 
61033 REM #** DEBUT DE LA VTOC #* LIBRES="N", TOTAL=S560": END 
61040 AS = ‘‘G700<B3BB.B3FEM N93700.9737 N 61199 REM #* ROUTINE D’AFFICHAGE ## 
D823G"*: FOR I = 1 TO LEN (AS): P 61200 FOR I = À TO B STEP 4:X = FN P(I 
OKE 511 + I, ASC ( MIDS (AS,I,1)) >:XS = "5 FOR J = 1 TO 16:XS = X 
+ 128: NEXT : POKE 72,0: CALL - S + STRS ( FN BCX)DD:IN = N + FN 
144: PRINT : GET AS: HOME : REM B(X):X = INT (X / 2): NEXT : HTA 


ROUTINE S.H.LAM 
REM ## TABLE DES SECTEURS ## 
AS = “012345678SABCDEF":N = 0 


B S: PRINT (I - 46067) / 4;: HTAB 


T: PRINT XS: NEXT : RETURN 


61049 
61050 
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Si vous perdez votre temps à recher- 
cher les petits bouts de papier sur 
lesquels vous inscrivez des informa- 
tions très précieuses, par exemple 
votre mot de passe pour DB Master, 
ce programme est pour vous : il per- 
met, en effet, de stocker dans un fi- 
chier bien propre des notes courtes, 
et toujours disponibles. 


Ce programme a été créé initiale- 
ment sur un Apple IT Plus muni de la 
carte minuscules ROM LC (NDLR : 
ROM Lower Case, pour avoir les mi- 
nuscules sur un Apple Il Plus) et 
d'une imprimante Centronics 739. 
Cependant, il est assez simple, en 
changeant quelques lignes, de 
l'adapter à d’autres configurations 
qui ne permettent pas l'introduction 
de minuscules ou possèdent une 
autre imprimante. C'est ce qui est 
réalisé en partie par le programme 
BLOC-NOTES-DEBUT., qui donne le 
choix entre les configurations Apple 
Il Plus, Il Plus avec ROM LC, //e et 
fc. 


Description du 
programme 


BLOC-NOTES est un programme de 
saisie de notes non ordonnées d'une 
longueur maximale de 120 caractè- 
res, soit 3 lignes d'écran, qui permet 
la lecture de toutes les notes ou 
d'une seule, la modification, la sup- 
pression ou l'édition dans l’ordre al- 
phabétique ou de saisie. 


Au début de l'exécution, le pro- 
gramme charge un utilitaire de tri, 
l'utilitaire PROGR4SK publié dans le 
Pom's 5, et initialise une routine de 
génération de son et la routine "DOS 
7” du Pom's 2 qui permet de 
connaître le nombre de secteurs en- 
core disponibles sur la disquette à 
chaque CATALOG. Ensuite, après 
avoir indiqué son nom et la date, on 
arrive dans un menu constitué de 
deux pages. 


Pour pouvoir écrire des notes, il faut 
d’abord ‘créer un fichier” (choix 3 
de la page 2 du menu) en indiquant 
le nom que l’on souhaite lui donner: 
cela crée un fichier annexe (suffixé 
par .NB) qui contient le nombre de 
fiches contenues dans le fichier prin- 
cipal. 


Ensuite, il existe deux possibilités : 


® écrire une note en prenant le 
choix 1 de la première page du 
menu; 

e faire le choix 1 de la deuxième 
page du menu, la "SAISIE RA- 
PIDE”; cette solution, lors d’une 


longue saisie, est très avantageuse. 


Les autres choix sont explicités par 
leur titre même : 


LIRE TOUT LE FICHIER - LIRE 
UNE NOTE - EFFACER UNE NOTE 
- CORRIGER UNE NOTE - CATA- 
LOGUE DE LA DISQUETTE (nom- 
bre de secteurs libres) - EDITER 
TOUTES LES NOTES (en 132 ca- 
ractères par ligne) - DETRUIRE UN 
FICHIER - COMPACTER TOUT LE 
FICHIER : une note effacée n'est pas 
supprimée mais remplacée par des 
caractères blancs; il faut donc réorga- 
niser périodiquement le fichier. 


Sur le plan ergonomique, le pro- 
gramme permet, au lieu de répéter à 
chaque entrée le nom du fichier, de 
faire apparaître en tapant RETURN 
le titre du fichier en cours. Dans cer- 
tains cas, pour éviter de détruire in- 
tempestivement des notes ou même 
le fichier entier, on est obligé de reta- 
per le nom du fichier. 


Configurations diverses 


Les opérations effectuées pour met- 
tre en oeuvre le programme avec di- 
verses configurations sont indiquées 
ci-dessous. Elles sont réalisées auto- 
matiquement par le programme 
BLOC-NOTES-DEBUT. 


Apple II Plus et ROM LC 


Après avoir fait le BRUN PATCH qui 
permet, quand on possède la ROM 
LC, de brancher les “minuscules”, 
on lance le programme par RUN 
BLOC-NOTES. 


Apple II Plus sans ROM LC 


Le programme MINMAJ de conver- 
sion minuscule/majuscule réalisé par 
Alexandre Avrane permet de trans- 
former automatiquement, une fois 
qu'il est chargé, toutes les minuscules 
en majuscules. Il suffit de faire préa- 
lablement BRUN MINMAJ” pour 
utiliser le bloc-notes avec un Apple II 
Plus sans ROM LC. Ce programme 
est désactivé par le RESET. Bien en- 
tendu, vous pouvez utiliser MINMAJ 
avec tout programme comportant 
des minuscules : les minuscules pa- 
raîtront alors sous la forme de majus- 
cules, y compris les minuscules ac- 
centuées et le ”Ç”. 


Apple //e ou //c 


Dans le cas de l'Apple //e, il n’est pas 
nécessaire de brancher” les minus- 
cules; il faut donc supprimer les 
POKESs qui avaient permis de chan- 
ger CTRL-A en ESC pour le passage 


Bloc-notes 


Jerôme Leclercq 


Majuscule/minuscule (lignes 102, 
247, 905, 1045, 7001 et 9030). 
D'autre part, le résumé des lettres 
avec accent (é, à, à et ü) et de la 
cédille (ç) n’est plus utile: on peut 
donc supprimer les lignes 158 à 175. 


Modification de l’imprimante 


Ceux qui ne possèdent pas la Cen- 
tronics 739 doivent modifier les 
codes à envoyer à l'imprimante dans 
les lignes 1785 (132 caractères de 
large), 1787 (écriture en condensé et 
en double largeur) et 1788 (fin 
d'écriture en double largeur). Ceux 
qui ne possèdent pas d'imprimante 
en 132 colonnes ont intérêt à modi- 
fier les lignes 190, 210, 560, 950, 
1010, 1160, 1350, 1433, 1440, 
1750, 2540 et 6060. 


] 
Note aux auteurs 


En raison de l’affluence des contribu- 
tions spontanées reçues par Pom's, 
nous prions les lecteurs-auteurs de 
nous pardonner s'il nous faut quel- 
que temps pour analyser leurs créa- 
tions : à certaines périodes, nous re- 
cevons jusqu’à un article par jour … 


Nous souhaitons aussi vous rappeler 
certains principes de base qui facilite- 
ront le travail d'analyse et de prépa- 
ration des articles. L'idéal est de 
nous faire parvenir une disquette 
contenant : 


e le(s) fichier(s) du programme pro- 
posé; 

e un ou deux fichiers d'exemples, si 
le programme utilise des fichiers 
externes; 

e un texte sous forme de fichier 
TEXT en DOS 3.3 (au verso si le 
recto est dans un autre système 
d'exploitation), de préférence en 
Apple Writer; n’oubliez pas d’indi- 
quer dans ce texte, le cas échéant, 
l'assembleur utilisé ainsi que le 
type de matériel nécessaire; 


Pensez aussi à mettre une étiquette 
avec vos nom, adresse et numéro(s) 
de téléphone, ainsi qu’une indication 
du système d'exploitation (DOS 3.8, 
ProDOS, Pascal, .) utilisé sur cha- 
que face. Il est utile d’ajouter un lis- 
ting du catalogue de la disquette 
avec une brève explication du rôle 
de chaque fichier. 





Programme BLOC-NOTES.DEBUT 


0 REM BLOC-NOTES DEBUT 
1 REM A6 10/46/84 
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10 TEXT : HOME 
NOTRACE 
" BLOC-NOTES ": 
& (4) 


INVERSE SPEED= 259: 


5: VTAE S: HTAB lé: PRINT 
NORMAL _:D$ = CHR 














20 VTAB 15: PRINT : PRINT "1 - APPLE II 100 PRINT : PRINT D$"ERUN SHIFT.#9400": 


+": PRINT "2 - APPLE I1+ AVEC ROM GOTO 120 
LC": PRINT "3 - APPLE IIE/I11C" 110 PRINT : PRINT D$"EXEC BLOC-NOTES.II 
30 VTAB 21: PRINT : PRINT "UOTRE CONFIG +LC": END 


URÂTION? --}";: GET A$:4 = VAL « 120 PRINT 
A$): ON À GOTO 100,110,120: GOTO 


PRINT D$"RUN ELOC-NOTES" 





3û 
40 NORMAL 
45 PRINT : PRINT Fichier EXEC : 


50 PRINT "AVANT DE LANCER L'’EXECUTION D 
U PROGRAMMEBLOC-NOTES, 51 Vous PO | BLOC-NOTES //+LC 
SSEDEZ LA ROM LC FAITES BRUN PAT 


CH" BRUN PATCH 
70 NEW RUN BLOC-NOTES 


————————— —————____———————————_—_——_____——…———_——_——_—_—__—_————_ 


: IN *ECRITU 
Programme BLOC-NOTES 250 Fe 20: REM FIN DE LA ROUTINE D 
SÔ00 REM RSR LL LS LLLLLLLEZEE] 
* * 
19 GOSUB 10000 * lecture * 
20 GOSUB 9000 * * 
50 GOTO 20 MOUMMOUNMUNN END DE DE UE DE DE DE 2e 2 
100 KEM HURRRREME EN NN RON MON NE EN S01 HOME : VTAB 12 
d s 502 PRINT “Nétoyage mémoire: un peu de patie 
* écriture Le nce SVP":AP = FRE (O) 
* * SOS 1$ = “" 
RRRRRRAHRRRERRRRRERNM NE EX 510 TEXT : HOME 
24 101 IS = “"ICT = © 520 HTAB 16: INVERSE : PRINT ‘LECTURE‘: NORM 
xt 102 POKE 40067,155 AL : PRINT : PRINT “Quel est le nom du 
103 X$S = “" fichier à lire?";:: & INPUT 1S: IF Is 
105 TEXT < > ‘“* THEN NOMS = Is 
110 HOME : PRINT * ECRITURE" S25 1F NOMS = “‘“ THEN POKE 768,255: POKE 76 
120 PRINT : PRINT ‘Quel est le nom du fichie 39,208: CALL 770: GOTO 20 
r? “5: & INPUT IS: IF 15 < > ‘“* THEN 530 PRINT NOMS: FOR T = 1 TO 300: NEXT T 
NOMS = 15 S40 GOSUB 4000: REM * NB=? * 
130 IF NOMS = “"“ THEN POKE 768,255: POKE 76 9560 PRINT OPS + NOMS + “,L121* 
9,208: CALL 770: GOTO 20 570 FOR X = 1 TO NB - 1 
135 PRINT NOMS: FOR T = 1 TO 100: NEXT T: HO 580 PRINT RDS + NOMS + “,R'":X 
ME 590 & INPUT RPS(X) 
142 IF NB < > © THEN 150 600 NEXT X 
145 GOSUB 4000 610 PRINT CLS + NOMS 


150 IF NB > 500 THEN HOME : INVERSE : PRINT 615 HOME 
"CE FICHIER CONTIENT PLUS DE 500 ENTR 616 PRINT ‘Lecture de ‘“:NOMS 
EES": NORMAL : PRINT “ On ne peut plus 617 PRINT : POKE 34,2 


rentrer de nouvelle fiche. “: POKE 76 620 FOR Y = 1 TO NB - 1 
8,255: POKE 769,208: CALL 770: FOR T = 625 IF RPS(Y) = ““* THEN PRINT "-(C";y;")"s: 
1 TO 400: GOTO 20 FLASH : PRINT “NOTE EFFACEE !!'": NORMA 
158 HTAB 1: VTAB 19: PRINT “____ L : NEXT Y 
D le ne us “: VTAB 21: HT | 630 PRINT “-(“:Y:")":RPSCY) 
AB 1 640 NEXT Y 
160 PRINT “SHIFT 8: é SHIFT 9: DE - 642 PRINT : PRINT 
minuscules/MAJUSCULES: ESC 645 INVERSE : PRINT “> TAPEZ UNE TOUCHE APRE 
SHIFT P: à SHIFT 1: à" S LECTURE <“: NORMAL : GET QLSS 


165 PRINT ‘“éééééééééèéesééeéésetéééééééeééèéée 646 NB = © 


| ééèéeeeë" V—__ 2 3 Ps 650 GOTO 20 
170 VTAB 1: HTAB 1 des trémas à l'écran 300 KEM RHRRERERRERERRRNREN ER 
175 PRINT ‘ééééséeseéseseseéééeseéeééeeseéeëé * * 
éééèéée" * correction # 
178 PRINT “Fichier ‘:NOMS * ” 
180 PRINT “Entrez 120 caractères au maximum NRMMRENMNNM MN NN NE HE NE D D M NN 
{= 3 lignes )* 302 NOMS = "“* 
183 PRINT “Fiche numéro “;: INVERSE : PRINT 905 POKE 40067,155 
NB: NORMAL 910 TEXT : HOME 
185 PRINT 920 HTAB 15: INVERSE : PRINT ‘“CORRECTION‘": N 
190 & INPUT XS,L120 ORMAL 
195 IF XS = ““ THEN 20 923 PRINT : PRINT : PRINT : PRINT 
200 IF LEN (XS) > 120 THEN HOME : INVERSE 925 PRINT : PRINT ‘Quel est le nom du fichie 
: PRINT “CHAINE TROP LONGUE ERREUR‘: F x? “st & INPUT NOMS 
OR T = 1 TO 400: NEXT T: GOTO 20 326 IF NOMS = ‘“* THEN POKE 768,255: POKE 76 
210 PRINT OPS + NOMS + “,L121" 9,208: CALL 770: GOTO 20 
220 PRINT WTS + NOMS + “,R'":NB 327 PRINT NOMS 
230 PRINT Xs 930 GOSUB 4000: INPUT ‘Quel est le numéro de 
240 PRINT CLS + NOMS la note que vous voulez corriger?":N 
245 GOSUB 4100 940 IF N > = NB THEN HOME : PRINT ‘Ce numé 
246 IF CT = 1 THEN 7030 ro n’existe pas‘: POKE 768,255: POKE 7 
247 POKE 40067,129 693,208: CALL 770: FOR T = i TO 400: NE 





Pom's n° 13 


XT T: GOTO 20 


PRINT OPS + NOMS + "“,L121" 

PRINT RDS + NOMS + *“,R";N 

& INPUT DAS 

PRINT CLS + NOMS 

HOME 

PRINT ‘CORRECTION: ‘“: PRINT DAS 

VTAB 2: HTAB 1: & INPUT TTS 

IF TTS = ‘“" THEN 20 

IF LEN CTTS) > 120 THEN HOME : PRINT 
“Chaine trop longue erreur": POKE 768, 
255: POKE 769,208: CALL 770: FOR T = 1 


TO 300: NEXT T: GOTO 20 
PRINT OPS + NOMS + “,L121* 
PRINT WTS + NOMS + ",R'":N 
PRINT TTS 
PRINT CLS + NOMS 
POKE 40067,129 
NB = O0: GOTO 20 
REM HMRMNMONMON DOM 0 D D DE 0 JE D De 2 
L1 * 
* lecture de note +* 
L1 * 
um mmm mnt M M M M M D D 6 D 2 Æ 
HOME 
HTAB 10: INVERSE : PRINT “LECTURE D’UNE 
NOTE": NORMAL : PRINT : PRINT : PRINT 
: PRINT 
& INPUT 1IS,''Quel est le nom du fichier 
à lire? “: IF 1IS < > ‘* THEN NOMS = 
1s 
IF NOMS = * THEN POKE 768,255: POKE 7 
69,208: CALL 770: GOTO 20 
PRINT NONS 
PRINT : INPUT ‘Quel est le numéro de la 
note? ‘":NN 
GOSUB 4000 
IF NN > NB THEN HOME : PRINT “Ce numér 


o n'existe pas": POKE 768,255: POKE 76 


3,208: CALL 770: FOR T = 1 TO 400: NEX 
T T: GOTO 20 

PRINT OPS + NOMS + “,L121* 
PRINT RDS + NOMS + ",R'';:NN 


& INPUT SYs 
PRINT CLS + NOMS 


INVERSE : PRINT “NOTE ‘“;NN;‘:": NORMAL 
IF SYS = “" THEN FLASH : PRINT “NOTE E 
FFACEE !!*: NORMAL : PRINT : PRINT : P 
RINT : PRINT : PRINT : GOTO 1215 

PRINT SYS: PRINT : PRINT : PRINT : PRIN 
T : PRINT 

VTAB 23 

INVERSE : PRINT ‘“>TAPEZ UNE TOUCHE A 


PRES LECTURE<': NORMAL : GET LSS 
NB = O: GOTO 20 
REM ND D DE ME DE DE D D D D DE DE DE D 26 DE 6 
Li LA 
Le compactage * 
#* * 
FRRNRAHMENN NN M M M HE M EN 
NOMS = °"" 
TEXT : HOME 
HTAB 15: INVERSE : PRINT ‘“COMPACTAGE": 
NORMAL 
PRINT : PRINT ‘Quel est le nom du fichi 
er à compacter ? ‘“;:: & INPUT NOMS: IF 
NOMS = ‘“‘“ THEN POKE 768,255: POKE 76 


9,208: CALL 770: GOTO 20 


PRINT NOMS 

GOSUB 4000 

PRINT OPS + NOMS + “,L121"* 

FOR X = 1 TO NB - 1 

PRINT RDS + NOMS + “,R'":Xx 

& INPUT RPS(X): NEXT X 

PRINT CLS + NOMS 

REM MOMOHMNE ON D NE DE DE DE DE DE DE D DE D 6 D 6 6 
# L 
* RPS(Y) -> BAS(Q) #* 
* L2 


TRRRRRRRRRRRRRRRMENER 
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Q = 1 
FOR Y = 1 TO NB - 1 
IF RPS(Y) < > ‘“" THEN BAS(Q) = RPS(CY): 
Q=0Q+1 
NEXT Y 
PRINT OPS + NOMS + “,L121": PRINT DES + 
NOMS 
PRINT OPS + NOMS + “,L121" 
FOR K = 1 TO Q - 1 
PRINT WTS + NOMS + “,R°":K 
PRINT BAS(K) 
NEXT K 
PRINT CLS + NOMS 
KEM DD DE DE DE DE D M Me NE DE DE DE DE DE O6 DE DE Ne EX 
#* * 
* NE = Q * 
æ * 


RRRRNMNMNNMNN NE NON NON NE HE 6 


PRINT OPS + NOMS + ‘“.NB?7,L10" 


PRINT WTS + NOMS + ‘“.NB?,R1" 
PRINT Q: PRINT CLS + NOMS + ‘".NB?" 
NB = O: GOTO 20 
REM DD DE DE DE DE DE DEMO DE DE DD DE DE DE D 6 DE 
* # 
* édition * 
* * 
DD D DD DE DE DE DE De De D D D D D DE D D 
HOME : VTAB 12: PRINT ‘“Nétoyage mémoire 


: un peu de patience SVP":AP = FRE (O 
) 
NOMS = "" 
TEXT : HOME 
HTAB 16: INVERSE : PRINT ‘"EDITION‘: NOR 
MAL : PRINT 
& INPUT YTS,'Quel est le nom du fichie 
r à éditer ? “15 IF YTS < > ‘“" THEN 
NOMS = YTS 
EKINT NOMS: IF NOMS = * THEN POKE 768 


255: POKE 769,208: CALL 770: GOTO 20 
& INPUT NMS,'"Numéro devant chaque entr 


ée ? ‘“: IF LEFTS (NMS,1) = “O'" THEN N 
M = 1 
IF LEFTS (NMS,1) € > ‘OC THEN NM = © 
PRINT : & INPUT DIS,‘'Double interligne 
? “1: & INPUT TCS$S,'"Tiret devant chaqu 
e entrée ? “: IF NOMS = ‘“‘* THEN 20 
IF LEFTS (DIS,1) = “O" THEN DI = 1 
IF LEFTS (DIS,1) < > “O" THEN DI = O 
IF LEFTS (TC$S,1) = “O" THEN TC = 1 
IF LEFTS (TCS,1) < > “O"* THEN TC = © 
IF Dis = ‘“‘“ THEN 20 
IF TCS = “" THEN 20 
GOSUB 4000: REM NB=? 
PRINT OPS$ + NOMS + ",L121* 


FOR X = 

“R':X 
& INPUT RPS(X): 
PRINT CLS + NOMS 


1 TO NB - 1: PRINT RDS + NOMS + 


NEXT 


GOSUB 5000 

PRE 1! 

PRINT CHRS (9); CHRS (177); CHRS (179) 
; CHRS (178); CHRS (206) 

PRINT CHRS (27); CHRS (20): PRINT CHR 


S (27); CHRS (14); TAB( 18)‘"NOTES DU F 


ICHIER ‘“";NOMS 


PRINT CHRS (27): CHRS (15) 

FÜR P = 1 TO NB - 1 

IF RPES(P) = “"* THEN NEXT 

1F TC = 1 AND NM = O THEN HTAB 10: PRI 
NT “-";" ":RPS(P) 

IF TC = 1 AND NM = 1 THEN HTAB 10: PRI 
NT "“(C";P;")- ":RPS(P) 

IF TC = © AND NM = © THEN HTAB 10: PRI 
NT RPS(P) 

IF TC = © AND NM = 1 THEN HTAB 10: PRI 
NT “(";P;") “;RPS(P) 

IF DI = 1 THEN PRINT 

NEXT 

PRINT : PRINT : PRINT ‘ “eNs:" 
le ‘:DTS 












NESRETENR 


L'ÉTAT E RS Des 


a$ 


RAS ENURE 


+ 








1835 
1840 
1841 


1850 
2100 


2110 
2120 
2130 


2140 


2150 


2160 


2170 


2180 


2190 
2200 
2500 


2502 
2505 
2510 


2520 


2530 
2535 


2540 
2550 
2560 
2570 
2580 


2300 


2905 
2910 


2911 


2913 
2925 
2930 
2935 
2940 


2950 
29360 
29930 


3000 


3001 


FOR WE = 1 TO 5: PRINT CHRS (10): NEXT 

PR£E 0 

PRINT : & INPUT PQS,'Voulez-vous une a 
utre impression ? “: IF LEFTS (PQS,1) 

= “O"* THEN 1783 
NB = O: GOTO 20 
REM RHONE DE DE DE ME D DE M6 2 6 26 DE 
L 2 + 
* création fichier #* 
* * 
RRHRMENN MMM NE DE DE D D D 6 
NOMS = "* 
TEXT : HOME 
INVERSE : PRINT ‘“ CREATION D’UN FICHIER 
“1 NORMAL 

PRINT : PRINT : FLASH : PRINT “ATTENTIO 
N": POKE 768,255: POKE 769,112: CALL 7 
70: NORMAL 

PRINT “Lorsque l’on crèe un fichier, si 

un fi- chier du meme nom existe déjà, 
il sera définitivement effacé." 

PRINT : & INPUT NOS$S,"Voulez-vous vrainm 
ent créer un fichier ? ‘“ 

IF LEFTS (NO$S,1) < > ‘“O* THEN POKE 7 
68,255: POKE 769,208: CALL 770: GOTO 2 
[e) 

& INPUT NOMS,‘"Quel eat le nom du fichi 
er ? ‘“: IF NOMS = “‘“ THEN 20 

NB = O: GOSUB 4100 
GOTO 20 
REM HR NN MEME NE D D DE DE 6 M D 
L 2 L 2 
* destruction fich, * 
+ # 
RRRRHRRMNNNNN NM NE NN NN 0 
NOMS = *" 

TEXT 

HOME : HTAB (14): INVERSE : 
RUCTION‘": NORMAL : PRINT 

& INPUT NOS,'"Voulez-vous vraiment détr 
uire un fichier ? “: IF LEFTS (NOS,1) 

< > “O" THEN POKE 768,255: POKE 769 
208: CALL 770: GOTO 20 

PRINT : & INPUT NOMS,'Quel est le nom 
du fichier ? * 

IF NOMS = ‘‘" THEN 
69,208: CALL 770: 

PRINT OPS + NOMS + 

PRINT DES + NOMS 

PRINT OPS + NOMS + 

PRINT DES + NOMS + 

POKE 768,255: POKE 

= O: GOTO 290 


REM HOUMOMOMNNNEONODE MED D SE D D DE DE D D 2 


PRINT “DEST 


POKE 768,255: POKE 7 
GOTO 20 
“,121" 


“ ND?" 
"ND?" 


769,112: CALL 770:NB 


L 2 “+ 
* catalogue Le 
“ L1 
HRNMMMNNMRNM NN NN D NN 0 20 à 
TEXT 
HOME : HTAB 14: 
GUE'**: NORMAL 
PRINT : PRINT “Drive 1 ou 2 ? “;: & IN 
PUT DRS$S:DR = VAL (DRS) 
IF DR < 1 OR DR > 2 THEN DR = 1 
POKE 34,2 
PRINT CHRS (4)'"CATALOG,D'DR 
PRINT 
INVERSE : PRINT 
S LECTURE<": 
GET SDHS 
POKE 34,0 
POKE 768,255: POKE 769,112: CALL 770:NB 
= O: GOTO 20 


REM RRRRRMNMNMON MN NE D D DE M JE 28 D 


INVERSE : PRINT ‘CATALO 


“>TAPEZ UNE TOUCHE APRE 
NORMAL 


LA # 


* erreurs * 
* * 


MMM DM De DE D D DE DE He D DE DE DE D D 2 46 


HOME 


CALL 803: TEXT : 





3002 
3003 


3004 


3005 


3006 


3007 


3008 


5001 


5010 
5020 
5030 
35040 
5050 
5060 
5070 


NOMS = ““":NB = O 
L = PEEK (222): IF L = S OR L = 6 OR L 
= 11 THEN VTAB 11: PRINT ‘ERREUR DE D 
ISQUETTE‘": POKE 768,255: POKE 769,208: 
CALL 770: FOR T = 1 TO 500: NEXT : GO 
TO 20 
1F L = 4 THEN VTAB 11: PRINT ‘DIQUETTE 
PROTEGEE‘": POKE 768,255: POKE 769,208 
: CALL 770: FOR T = 1 TO 500: NEXT T: 
GOTO 20 
IF L = 8 THEN VTAB 11: PRINT ‘PORTE DI 


SQUETTE OUVERTE‘: 
69,208: CALL 770: 

XT T: GOTO 20 

IF L = S THEN VTAB 11: PRINT ‘“DISQUETT 
E PLEINE": POKE 768,255: POKE 769,208: 
CALL 770: FOR T = 1 TO 600: NEXT T: G 

OTO 20 

IF L = 10 THEN 
VEROUILLE": 
8: CALL 770: 
GOTO 20 

IF L = 7 THEN 

NCOMPATIBLE": 

08: CALL 770: 

: GOTO 20 
INVERSE : PRINT ‘ 

R D: 
PRINT : PRINT : PRINT 
PRINT ‘Erreur en ligne ‘: 

PEEK (219) *# 256;:" de code erreur 


POKE 768,25S: POKE 7 
FOR T = 1 TO 600: NE 


VTAB 11: PRINT ‘FICHIER 
POKE 768,255: POKE 769,20 
FOR T = 1 TO 600: NEXT T: 


VTAB 11: PRINT ‘VOLUME 1 
POKE 768,255: POKE 769,2 
FOR T = 1 TO 600: NEXT T 


ERREU 
NORMAL 


PEEK (218) + 
“sL 


PRINT “Voulez-vous sortir du programme? 


“31 & INPUT POS: IF LEFTS (POS,1) « 
> “O" THEN NB = O: GOTO 3000 
HOME : PRINT ‘“ AU REVOIR !!* 
END 
REM MOHOMOMON MONO NE NN DE NE DE De D DE JE D DE 
* * 
# NB = ? # 
# # 


RAM N MN NE DE OM NE NE D Ne 2 D 6 2 je 


PRINT OPS + NOMS + “.NB?7,L10" 
PRINT RDS + NOMS + ‘“.NB?7,R1" 
INPUT NB 
PRINT CLS + NOMS + ‘.NB?" 
RETURN 
KEM HHHMMNNNMMM MN MON NE DE NE D NE UE NE 
* * 
* NB = NB + 1 * 
* # 
RRRRMMMON MONDE DEMO DE HN 
NB = NB + 1 
PKINT OPS + NOMS + “.NB7,L10" 
PRINT WTS + NOMS + “.NB?,R1" 
PRINT NB 
PRINT CLS + NOMS + ‘“.NB?" 
RETURN 
REM HRNNMN MONO OMON D D DOM DE 2 DE NN 
* * 
# fin * 
#* #* 
HOMME ON DE DD DE DE DE DE D DE DE DE D DE DE D 
HOME 
GOTO 3022 
REM HOMME DD DE D DE DE 2 DE D DE D D DE DE DE 
# * 
* tri oui/non * 
# * 


RRHMMNMNMNM MMM SE D NN M © 


& INPUT FHS,'"Voulez-vous l’ordre alpha 


bétique? “: IF LEFTS (FHS,1) < > “O" 
THEN RETURN 
CD = NB - i 
FOR Ÿ = 1 TO CD:RP%{Y) = Y: NEXT Y 
T%x(O) = CD 
Tx(1) = USR ( VAL (RPS(0))D) 
Tx(2) = USR (RP%x(0)) 
TX(3) = 3 
Tx(4) = 2 
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5080 CD = T%“(0) 
5090 CALL 31232 
S099 RETURN 
69000 REM HOMME D DE DE DE De J6 DE D 36 D D De DE DE NE 
L 2 L2 
* destruction note # 
L. 1 L 2 
HRRREMMMNNMNRR D D D M M M HE 
6010 HOME : HTAB 14: INVERSE : PRINT “DESTRU 
CTION': NORMAL 
6020 & INPUT NOMS,'Quel est le nom du fichi 
er ? " 
6030 IF NONS = ‘’‘“* THEN POKE 768,255: POKE 7 
69,208: CALL 770: GOTO 290 
6040 GOSUB 4000: INPUT ‘Quel est le numéro d 
e la note que vous voulez détruire ? 
“:N 
60S0 IF N > = NB THEN POKE 768,255: POKE 7 
693,208: CALL 770: GOTO 20 
6055 KIS = ‘“* 
6056 RPS(CN) = *"" 
6060 PRINT OPS + NOMS + “,L121"* 
6070 PRINT WTS + NOMS + ‘",R'':N 
6080 PRINT RIS 
6090 PRINT CLS + NOMS 
6100 NB = O: GOTO 20 
7000 REM MD MED 0e D DE M DE DE DE DE DE DE DE DE DE DE DE 
“ “ 
Li saisie rapide * 
LA * 
RRRMMNMNNM MN NME NE D 2 6 2 
7001 POKE 40067,155 
7002 HOME : HTAB 13: INVERSE : PRINT “SAISIE 
RAPIDE": NORMAL : PRINT : PRINT : PRI 
NT : PRINT 
7005 CT = 1:1S = “"" 
7011 & INPUT I1S,'Quel est le nom du fichier 
? “5 IF I$ < > ““* THEN NOMS = Is 
7012 IF NOMS = “‘“ THEN POKE 768,255: POKE 7 
69,208: CALL 770: GOTO 20 
7013 PRINT NOMS 
7015 GOSUB 4000: REM NB=? 
7017 HOME 
7020 VTAB 2: GOTO 150 
7030 HOME : PRINT ‘Pour arreter la saisie ra 
pide, taper ESCsinon tapez une touche 
quelconque“ 
7035 XS = "“" 
7040 S = PEEK ( - 16384): POKE - 16368,0 
7045 IF S < 128 THEN 7040 
7050 IF S = 155 THEN GOTO 20 
7060 GOTO 7020 
8999 END 
3000 REM MODE D D DE DD DE DE DE DE D DE dé Dé Dé DE Dé 06 DE 6 
#* #* 
Li menu * 
# #* 
FRRRRRHARMNNMN NM NM M M D EN À 
9005 CT = © 
9010 TEXT : HOME 
3030 POKE 40067,123 
3070 V = 1: GOSUB 9490: FOR V = 1 TO 22: HTAB 
1: PRINT “S“;: HTAB 39: PRINT ‘“‘‘": NE 
XT V: GOSUB 9490 
3080 VTAB 2: HTAB 10: INVERSE : PRINT ‘BLOC- 
NOTES PAGE 1‘: NORMAL 
3090 VTAB 3: HTAB 2: FOR I = 2 TO 38: PRINT 
“8&"“;:: NEXT I 
9100 FOR I = 1 TO 7: HTAB 3: VTAB 4 + 2 » I: 
PRINT I;".‘";MS(I)D: NEXT I 
93120 VTAB 21: HTAB 15: PRINT ‘VOTRE CHOIX ‘': 
CHRS (91); ‘“; CHRS (93): VTAB 21: HT 
AB 28: GET CS: PRINT CS 
3130 V = VAL (CS): IF V = © THEN 9120 
9135 IF V > 7 THEN 9120 
3140 FOR I = O TO 7 - V: VTAB 18 - 2 »* I: HT 
AB 4: PRINT ‘“>": IF I > © THEN VTAB 2 
O - 2 * I: HTAB 4: PRINT “." 
9150 NEXT IL: IF V = 6 THEN FOR I = 1 TO 200 
: NEXT 
Pom's n° 13 


93530 


3540 
3545 
3550 
3560 
3570 


3580 
3530 
10000 


10001 


10003 
10004 
10005 
10008 
10003 


10010 
10020 
10050 
10060 
10070 
10080 
10090 
10095 
10100 


VTAB 4 + 2 # V: HTAB S: INVERSE : PRINT 
MSCV)D: NORMAL 
FOR 1 = 1 TO 100: NEXT 1! 
ON V GOTO 100,500,1100,6000,900,2900,92 
00 
REM HOMME MODE DE DE DE DE D DS D DE DE DE JE 
* * 
# menu page 2 * 
L2 L2 
30 08 0 2 D UE UF DE D 08 26 3 UF DE 26 088 DE 0 06 
HOME :V = 1: GOSUB 93490: FOR V = 1 TO 2 
2: HTAB 1: PRINT “‘#";: HTAB 39: PRINT 
MANS NEXT V: GOSUB 9430 
VTAB 2: HTAB S: INVERSE : PRINT ‘BLOC-N 
OTES PAGE 2“: NORMAL 
VTAB 3: HTAB 2: FOR 1 = 2 TO 38: PRINT 
“é";: NEXT I 
FOR V = 8 TO 14: VTAB 2 # V - 10: HTAB 
3: PRINT (V - 7);".";MS(V): NEXT V 
VTAB 21: HTAB 15: PRINT ‘VOTRE CHOIX ‘; 
CHRS (91);"* ‘; CHRS (93): VTAB 21: HT 
AB 28: GET CS: PRINT CS:V = VAL (CS) 
IF V = O THEN 3260 
FOR I = O TO 7 - V: VTAB 18 - 2 * I: HT 
AB 4: PRINT ‘“>": IF I > © THEN VTAB 2 
O - 2 *# I: HTAB 4: PRINT ‘“." 
NEXT I: IF V = 7 THEN FOR I = 1 TO 200 
: NEXT 
VTAB 4 + Z * V: HTAB 5: INVERSE : PRINT 
MSCV + 73: NORMAL 
FOR I = O TO 100: NEXT I 
ON V GOTO 7000,1700,2100,2500,1300,4300 
# 3000 
VTAB V: HTAB 2: FOK H = Z TO 38: PRINT 
"é";: NEXT H: RETURN 
REM MON M De MM NE DE DE DE DE DE DE DE DE D NE D 
* * 
* secteurs libres #* 
* * 
HRMRMMMNMNMN NX M NM NN NN M NE NE 
YS = “A884:5B N ADC3:20 O0 B6 N B600:A2 
OC 20 4A F9 A9 00 85 40 85 41 AO C8 18 
BS F2 B3 FO OE OA 90 FB 48 E6 40 DO © 
2 E6 41 68 18 90 FO 88 DO E9 A6 40 AS 
41 AC OO EO CO 20 DO 07 20 1B ES 20 2F 
ÀÂE 60 20 24 ED 20 2F AE 60“ 
GOSUB 93550 
RETURN 
YS = YS + " N D9C6G" 
FOR I = 1 TO LEN (YS) 
POKE 511 + I, ASC ( MIDS (YS,I,1)) + 12 
8 
NEXT : POKE 72,0: CALL - 144 
RETURN 
REM wwe 6m 2 36 2e 46 6 D 26 D 26 
LA 2 
* initialisation # 
* + 
HRRRMMNMNNMNMNMNM NME D M M M NN 
TEXT : HOME : VTAB 10: PRINT ‘“initiali 
sation de la routine de tri, de la 
routine de génération de son, et d 
e la routine permettant de savoir le 
nombre de secteurs libres à chaque 
CATALOGUE" 
HIMEM: 31230: PRINT CHRS (4) "CLOSE" 
GOSUB 20000 
GOSUB 40000 
GOSUB 45000 
GOSUB 9500: HOME : VTAB (10): PRINT ‘“c 
hargement de PROGR48K, et de TRIL.M3"* 
PRINT CHRS (4) '"BRUNPROGR48K" 
PRINT CHRS (4)'"BLOADTRIL.M3" 
DS = “" 
OPS$S = DS + "OPEN" 
RDS = DS + ‘“READ" 
CLS = DS + "CLOSE" 
WTS = DS + “WRITE“ 
DES = DS + "“DELETE" 
NOTRACE 


DORRNRRRRRERRNN RENNES 


PET CRUE 
EE 


27 











| 


10105 
10107 
10108 
10110 


10115 
10120 


10125 
10130 
10135 
10160 


10300 
20000 


20010 


20020 


ONERR GOTO 3000 
DIM RPS(500),BAS(500) ,MS(14) 
DIM RP%(500),T%x(4) 

HOME : PRINT “Le programme est chargé 
“: PRINT : PRINT “Retirez la disquette 
programme": PRINT : PRINT ‘et mettez 

la disquette données * 

POKE 768,255: POKE 769,212: CALL 770 
PRINT : PRINT ‘Quel est votre nom ? 
5 & INPUT NS 

IF NS = ‘“‘" THEN VTAB 6: CALL 
GOTO 10120 
PRINT : PRINT 
& INPUT DTS 
IF DTS = ““ THEN 
GOTO 10130 

FOR I = 1 TO 14: 
GOTO 20 


REM mue m6 06 6 26 de 06 26 6 26 6 2 06 26 2 


. 
, 


- 868: 
“Quelle est la date? ‘“:: 


VTAB 8: CALL - 868: 


READ MS(I): NEXT 


* * 
* routine d'erreurs * 
L 2 #*+ 
LELLLLLLLLELLELELLLIELZEZ] 


RES = “323:68 A8 68 A6 DF SA 48 98 48 6 
O ND9C6G'": FOR I = 1 TO LEN (RES): PO 
KE S11 + I, ASC ( MIDS (RES,1I,1)) + 12 
8: NEXT : POKE 72,0: CALL - 144 
RETURN : REM 


40000 


40010 
40020 
40030 
40040 


40055 
45000 


45010 


45020 


50300 


50310 


REM nm 2e 2 36 2 7 7 2 2 € à 


+ L2 
#* init. rout. tri #* 
LA * 


LÉRLRLLLLLLLLLLLLLLLLZ ZX] 
POKE 10,76: POKE 11,26: POKE 12,3 
POKE 794,165: POKE 795,132 
POKE 796,164: POKE 797,131 
POKE 798,76: POKE 799,242: POKE 800,22 
6 
RETURN 


REM ww de 06 26 26 26 6 26 D 26 06 6m 


Li * 
# init. rout. son * 
* * 


RHHHMNMNN MM NH SE MM NE M NN 
MUS = “300:02 O2 AD 30 CO 88 DO O5 CE 0 
1 03 FO O9 CA DO FS AE O0 03 4C O2 O3 
60 NDSC6G": FOR I = 1 TO LEN (MUS): P 
OKE S11 + I, ASC © MIDS (MUS,I1,1)) + 1 
28: NEXT : POKE 72,0: CALL - 144 
RETURN : REM 


DATA ECRIRE,LIRE TOUT LE FICHIER,LIRE 
UNE NOTE,EFFACER UNE NOTE,CORRIGER UN 
E NOTE,CATALOGUE DE LA DISQUETTE, SUITE 
MENU 

DATA SAISIE RAPIDE,EDITER TOUTES LES N 

OTES,CREER UN FICHIER,DETRUIRE UN FICH 
IER,COMPACTER TOUT LE FICHIER,FIN,RETO 

UR DEBUT MENU 





- FO 13 E0 
Programme PATCH Programme PROGR 48K 5 DE F0 LE RO Fe du mù 40 
7A40- A9 80 91 95 98 CB 91 95 
7A48- DO 0E A9 00 FO 02 A9 FF 
9C00- A9 1D 8D F2 03 A9 FC 8D 9300- A9 4C 8D F5 03 A9 18 D A50- À4 BA 88 91 95 88 10 FE 
9C08- F3 03 20 6F FB A9 28 85 9308- Fé 03 A9 93 8D F7 03 A9 7587 18 AS BA 65 95 85 95 90 
9C10- 38 A9 9C 85 39 A9 9B 8D  9310- 00 85 73 A9 93 85 74 60 7N60- 02 Eé 96 18 AS BB 65 9? 
9C18- 01 9D 4C D3 03 A9 28 85 9318- 02 BE 80 C9 84 FO 1D c? 687 85 99 90 02 Eé SA AS 93 
9C20- 38 AP 9C 85 39 4C BF 9D  9320- AB FO 13 C9 Ba FO 12 c9 /A70- DO 02 Cé 94 Cé 98 D0 07 
9C28- 8E Dé 9C 08 48 E0 00 DO  9328- B5 FO 08 C9 AA D0 03 4c 2787 AS 94 DO 05 85 8A 60 18 
9C30- 03 8E D4 9C BA BD 07 01  9330- 4E 94 60 4C 2F 94 4C FF  7A80- AS 9S 85 97 65 8A 85 25 
9C38- C9 77 DO 11 BD 08 O1 C9 9338- 93 4C 05 94 A4 25 84 07 /A8B- AS 96 85 98 697 00 85 96 
9C40- FD DO DA A9 Bé 9D 07 01  9340- A4 24 84 08 A9 00 85 07 /A90- 18 ÀS 99 85 9B 65 8B 85 
9C48- A9 9C 9D 08 01 68 AE Dé  9348- 85 06 20 Bi 00 20 E3 DF /198- 99 AS 9A 85 9C 69 00 85 
9C50- 9C 8D D7 9C A4 24 A9 20  9350- 20 6C DD 85 85 84 86 A0 AA FA 20 CA 7A 20 FO 7A 10 
9C58- 91 28 A9 10 20 A8 FC Eé  9358- 00 B1 B8 C9 2C DO 35 20 /A8- 1B 20 36 7B 38 AS 97 ES 
9Cé0- 4E DO OF Eé 4F B1 28 CD 9360- Bi 00 C9 4C FO 14 C9 56  /AB0- £A 85 97 B0O 02 Cé 98 38 
9Cé8- 57 9C DO EA AD D7 9C 4C  9368- FO 18 C9 48 FO 1D co 22 /AB8- ÀS 9B ES 8B 85 9B BO E 
9C70- 58 9C AD D7 9C 2C 00 CO  9370- DO 05 Eé 06 4C 94 93 4c ZACO- Cé PC 90 E0 20 67 7B AC 
9C78- 10 EO 91 28 AD 00 CO 2C  9378- 8D 94 20 F5 Eé 86 09 4c ZAC8- 6E 7A A4 BA CO CS FO 08 
9C80- 10 CO C9 81 DO OD AD D4  9380- 57 93 20 F5 Eé Ca 86 07 /AD0- 88 B1 9S 99 9D 00 86 10 
PCB8- 9C 49 FF 8D D4 9C Bi 28 9388- 4C 57 93 20 FS Eé CA gé /AD8- FE 30 07 A4 96 5 95 20 
9C90- 4C 51 9C 2C D4 9C 10 1D  9390- 08 4C 57 93 AS 07 85 25 /AE0- F9 EA A4 8B F0 07 88 Bi 
9C98- 8C DS 9C A0 0A 88 30 08  9398- A5 08 85 24 20 22 FC AS /ME8- 7? 99 A5 00 88 10 F8 60 
9CA0- D? CO 9C DO FB B9 CA 9C  93A0- 06 FO 12 38 20 81 DE 20 /AF0- Âé BA E0 08 FO 1C 90 0? 
9CAB- AC DS 9C C9 DB B0O 06 C9  93A8- 3D DB EA EA EA EA En En  /AF8- A4 98 AS 97 20 B2 EB A8 
?CBO- C1 90 02 09 20 28 60 93B0- EA EA 20 B7 00 A6 09 FO  7B00- 60 A0 01 88 AS 9E F1 97 
93B8- 19 AS 32 48 20 84 FE A9  7B08- 88 AS 9D F1 97 50 02 4? 
S3C0- AE 20 ED FD CA DO FA AS  7810- FF 60 A0 02 Bi 97 99 A0 
93C8- 09 20 10 FC CA DO FA 68  7B18- 00 88 10 F8 C8 C4 A0 FO 
S3D0- 65 32 20 6F FD 8A FO 1E  78B20- FO C4 9D FO 0B B1 9E D1I 
93D8- BD FF 01 C9 83 FO 14 BD  7828- À1 90 05 DO 0é C8 DO ED 
S9E0- FF 01 29 76 9D EF 01 CA  7890- A9 FF 60. A9 00 40 A0 00 
Pr MINMAJ 93E8- DO F5 A9 00 A0 02 A2 8D  /P38- B1 97 48 C8 C4 EA DO F8 
ogramme 93F0- 20 E? E3 20 94 DA 42 00  7B40- 98 18 DA AB 88 68 91 97 
93F8- 60 20 M FF 4C DO 03 7B48- 88 C4 8A B0 F8 AS 8B FO 
7850- 17 A0 00 B1 9B 48 C8 C4 
PA00- A9 OF 85 36 A9 9A 85 37 7B58- 8B DO F8 98 18 0A AB 88 
9A08- A9 00 85 48 4C EA 03 8D 7B60- 68 91 9B 88 C4 8B BO F8 
A10- 44 9A 08 84 48 AD 4a sa Programme TRIL. M 3 7B68- 60 18 AS 97 65 8A 85 97 
9A18- A2 07 DD 34 FA FO OC CA 7B70- 90 02 Eé 98 A4 8A CO 05 
9A20- 10 F8 C9 EO 90 08 38 E9  7A00- A0 00 B1 83 85 94 C8 Bi  7B78- FO 0B 88 B9 9D 00 91 97 
9A28- 20 DO 03 BD 42 9A 8D 4A  7A08- 83 85 93 CB Bi 83 85 96  7B80- 88 10 F8 30 0é A4 98 AA 
9A30- 9A 68 AA 28 AD 4A 9A 4C  7A10- C8 Bi 83 85 95 C8 Bi 83 7B88- 20 2B EB A4 8B FO 14 88 
9438- FO FD CO DC E0 FB FC FD 7A18- 85 9A C8 Bi 83 85 9? CB  7B90- 18 A5 9B 65 8B 85 9B 90 
9A40- FE FF C1 C3 A1 CS DS C5 7A20- C8 B1 83 85 SA CB C8 Bi  7B98- 02 Eé 9C B9 A5 00 91 9B 
9A48- AD Ai 00 FF 7428- 83 85 8B A0 00 A6 8A E0  7BAO- 88 10 F8 60 
AOSSSSRERERE 
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Lors de la mise au point d’un pro- 
gramme Basic, on a souvent besoin 
de connaître le contenu des varia- 
bles. Il faut pour cela faire d’innom- 
brables PRINTSs pour les variables 
simples et les tableaux : des boucles 
FOR-NEXT qui ont comme désavan- 
tage d’être longues et fastidieuses à 
l'usage ainsi que muettes sur le rang 
des variables dans le tableau. De 
plus, un autre problème peut se pré- 
senter: supposons que le pro- 
gramme Basic crée une variable, V 
par exemple, qui s’annule durant le 
traitement. Comment savoir si le dé- 
roulement du programme a été nor- 
mal: si l’on tape "PRINT V” après 
l'exécution, l’Applesoft répondra par 
un 0” difficilement exploitable. 


PRNVAR (PRiNt VARiables) permet 
de faire disparaître ce genre de diffi- 
cultés, tout en fournissant des rensei- 
gnements supplémentaires, avec 
l'aide du fameux ”’&” (ampersand) 
de l'Applesoft déjà fréquemment mis 
à contribution dans Pom's. 


Ce programme permet aussi de 
mieux comprendre l’organisation des 
variables en Basic, grâce à l'option 
"P” en particulier. J'ai ainsi appris, 
en tapant ”’XGIA.” au clavier, non 
seulement que cela engendre une 
SYNTAX ERROR, mais aussi que 
l'on crée par cette ’instruction”’ une 
variable réelle nommée ”’XG”. 


Utilisation de PRNVAR 


Ce programme affiche, selon les op- 
tions qu'on lui fournit : les variables 
alphanumériques, réelles et entières, 
dimensionnées (tableaux) ou non, 
ainsi que leur adresse d'implantation 
et, pour les tableaux, leurs dimen- 
sions. 

En outre, les fonctions pourront être 
signalées. 


La syntaxe de cette nouvelle 

commande ajoutée au Basic est fort 

simple : 

e ”’&” seul, affiche toutes les varia- 
bles, quelle que soit leur nature. 

e ”&)” affiche tous les tableaux. 

© "&R” (resp. ‘&%”, ”’&$" ou 
"&#”), affiche les variables sim- 
ples réelles (resp. entières, alpha- 
numériques ou représentant une 
fonction). 

eo &{(R)” (resp. ’&(%)” ou "&($)”), 
affiche les tableaux réels (resp. en- 
tiers ou alphanumériques). 


Remarque : la commande ”’&(#)" 
n'aurait aucun sens, car les tableaux 
de fonctions n'existent pas, et sera 
donc ignorée. 
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Impression des variables 


On peut aussi 


commandes : 


’&(R%)$” aura pour effet d'afficher 
les tableaux réels et entiers ainsi que 
les variables simples alphanuméri- 
ques. 


regrouper des 


La place des caractères n’a aucune 
importance : 


"&$(%R)" aura le même effet que 
précédemment. 


Cependant, il est bien évident que : 
”&($)%R" n'aura pas le même effet. 


Options pratiques 


Il y a en outre deux options possi- 
bles : 


@e O: la présence de ce caractère 
dans la commande précise que 
vous voulez voir apparaître les va- 
riables nulles (celles-ci étant igno- 
rées autrement). On peut toutefois 
inverser sa fonction, si on le dé- 
sire, en remplaçant aux lignes 221 
et 327 "BNE” par ‘BEQ”. 


© P: la présence de ce caractère 
précise que vous voulez voir appa- 
raître l'adresse d'implantation du 
contenu de chaque variable à côté 
du contenu de celle-ci. Cette 
adresse correspondra en fait à 
l'endroit exact où est implanté le 
contenu de la variable, On obtient 
l'adresse du nom d’une variable 
simple en soustrayant 2 à l'adresse 
du contenu. Pour les tableaux, 
après par exemple DIM A(10), il 
apparaîtra en premier ‘’TABLEAU 
A(11) EN : HHLL”, HHLL corres- 
pondant à l'adresse d'implantation 
du nom du tableau. Remarquons 
au passage que ce n'est pas A(10) 
mais A(11) qui est affiché, cela 
provient du fait que DIM A(10) 
génère 11 éléments (de O0 à 10). 
Enfin, pour les variables représen- 
tant une fonction, viendra s’ajou- 
ter la ligne Basic où celle-ci a été 
définie. 
Encore une précision: pour des 
raisons de présentation, seuls les 
douze premiers caractères des va- 
riables alphanumériques seront af- 
fichés. 


Pour obtenir l’une et/ou l’autre de 
ces deux options, il suffit d'introduire 
70” et/ou ”P” dans la commande, à 
n'importe quelle place. 


Remarque : tout autre caractère que 
,” LE LE] LEL »” ” LE LL] 9 LEA EE) LL ” 
R NA 7% i] $ % # : ( x } : 0 
ou ‘’P” est considéré comme une de- 
mande de tout afficher dans la caté- 
gorie des variables prises en compte 
(simples et/ou dimensionnées). Ainsi, 


Laurent Esnault 


”&X"” affiche toutes les variables sim- 
ples sans les tableaux. 

Enfin, on peut obtenir une pause 
dans l'affichage en appuyant sur 
n'importe quelle touche du clavier et 
le relancer en faisant de même. On 
revient au Basic par CTRL-C. 


Description générale 


Ce programme fait 880 octets et 
peut donc être placé juste avant le 
DOS (HIMEM: 9600), en $9290. 
Pour la sauvegarde sur disquette, 
LISA utilisant la page mémoire 
$9500-9600, il faut opérer ainsi : 


1 - Taper le programme et l’assem- 


bler (!}; le code objet sera alors 
implanté en $800. 

2 - Faire CTRL-D "BSAVE 
PRNVAR,A$800,L$365". 


3 - Booter une disquette sous Apple- 
soft (Basic). 
PRNVAR, 


4 - Faire 
A$9290”. 
5 - Faire enfin "’BSAVE PRNVAR, 
A$9290,L$370”. 
Sa mise en fonction se fera ensuite 
simplement par ‘BRUN PRNVAR”, 
ceci ayant pour effet de charger le 
programme en mémoire et de mettre 
à jour le vecteur & et les pointeurs 
HIMEM, FRETOP, ARYTAB et 
STREND. Les variables seront alors 
effacées. Il est donc préférable de 
faire "BRUN PRNVAR” avant l'exé- 
cution d’un programme Basic si l'on 
veut connaître le contenu des varia- 
bles que celui-ci aura créées. 


"BLOAD 


Passons au programme en lui-même. 
Il est constitué de trois parties princi- 
pales : 


1 - TRTAMP: traitement de la 
commande, c'est-à-dire l'analyse des 
caractères suivant l’ampersand et la 
détermination des choix et options. 
On y utilise CHRGET, sous-pro- 
gramme d'acquisition de caractères. 
2 - TRAITM : traitement des varia- 
bles simples. On effectue un ba- 
layage de la zone des variables sim- 
ples (LOMEM-—ARYTAB), à la 
recherche d’un certain type de varia- 
bles (entières, réelles, alphanuméri- 
ques où représentant une fonction); 
lorsqu'on en a trouvé une, on l’affi- 
che en tenant compte des options 
éventuelles. Quand ce premier ba- 
layage est effectué, on passe à un se- 
cond type de variables (si l'utilisateur 
l’a demandé). N'oublions pas qu’une 
variable simple occupe 2 octets pour 
son nom et 5 octets quel que soit 
son type. 


Il faut aussi remarquer que les varia- 


D 
EE 
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bles représentant les fonctions (im- 
plantées uniquement dans la zone 
des variables simples) contiennent 
l'adresse d'implantation de la fonc- 
tion dans le programme ainsi que 
l'adresse pointant sur le contenu de 
la variable prise en compte dans la 
fonction (exemple : X pour DEF FN 
A(X)=...). 

3 - TABLEAU : traitement des ta- 
bleaux. Il est similaire au traitement 
des variables simples, mis à part le 
fait que l’on affiche les dimensions 
de chaque élément du tableau pris 
en compte (balayage de ARYTAB à 
STREND). 


L'organisation des variables est la 

suivante : 

- 2 octets pour le nom; 

- 2 pour la longueur du tableau: 

- 1 pour le nombre de dimensions 
(inférieur à 89); 

- 2 pour chaque dimension. 

Plus : 

- 5 octets par élément pour les 
réels; 

- 2 pour les entiers; 

- 3 pour les alphanumériques (1 
pour la longueur de la chaîne et 2 
pour l'adresse d'implantation). 

(Pour plus de détails, voir le manuel 

de référence de l'Apple II.) 


Viennent enfin les sous-programmes : 
quatre principaux, dont les REMs du 
listing expliquent la fonction. 


Voilà, je pense avoir tout dit. Vous 
êtes maintenant en possession d’une 
commande supplémentaire qui, insé- 
rée dans le programme aux points 
stratégiques” et associée à la fonc- 
tion TRACE, constitue une arme très 
efficace pour la chasse aux ”’bugs”. 


La disquette de Pom's comporte un 
second programme de démonstra- 
tion, appelé DEMOZ. 








LISA 2,5 70 STY HIMEM+1 





71 STA FRETOP 
72 STY FRETOP+i 
; 73 LDA LOMEM 

1 es 74 LDY LOMEM+1 

2 TTL "AFFICHAGE DE VARIABLES Pak L’8"* 75 STA ARYTAB 

S+3 OR RER 0 76 STY ARYTAB+1 

4 ; * 77 STA STREND 

S ; cé PRNVAR # 78 STY STREND+1 

6 ; " # 79 RTS 

7 , Par Laurent ESNAULT . 80 : 

8 ; ® L 81 ; 

Si + L APPLE II Le 82 : hnnnenennnnnnnnnnnn num nn 

10 ; . ” 83 ; . - 
il ; Q 04/1984 » 84 ; * TRAITEMENT DE L'’& * 

12 : oser nnennnnnnnnnn nn 85 ; " # 

13 :; 86 :; LERELLEELEELLEELI ELLES. 

lé : 87 ; 

15 . one enesennnnnnnnnemn ne 88 TRTAMPO LDY #0 
16 ; F di 83 STY AMPERS 

17 : + Définition des adresses « 30 STY OPNUL 

18 ; # ” 31 STY OPPOIN 

19 : CHMMMMMMRRRRRMRNR NN NN MMM 92 TRTAMP TAX :Si c'est “:" 
20 : 93 BEQ FIN ;Ou "O0" alors 
21 ; 1) EN PAGE ZERO : 34 CEX #°:° :Fian de ia 
22 ; 95 BEQ FIN ; Commande 
23 ADVAR EPZ SFB :Pointeur generai 36 ; 
24 IMPLDIM EPZ SF3 97 CPX #° 0° 
25 LOMEM EPZ 5693 38 BNE SUITEI 
26 HIMEM EPZ $73 933 LDY #1 
27 HTAB EPZ $24 100 BNE NEWBCL 
28 vo EPZ SCE 101 SUITEL  CEX #°)” 
29 V1 EP2 SCF 102 BNE COMPAR 
30 FRETOP EPZ S6F 103 CPY #1 
31 STREND EPZ S6D 104 BEQ SUITE3 
32 ARYTAB EPZ $6B 105 LDA #%11110000 
33 CHRGET EPZ SB1 106 BNE RETI 
34 ; 107 ; 
35 ; 2) ABSOLUES : 108 SUITE3 LDY #0 
36 ; 103 BEQ NEWBCL 
37 VECTEUR EUU 83FS 110 ; 
38 KBD EQU SCOo00 IN) 5 “His scies ezséeras 
39 KEYSTR EQU SCO10 112 : . - 
40 ADDIM EQU 5300 113 : - Ün compare X avec les codes - 
41 MOVFM EQU SEAF9 3: CY,A)D -->FAC 114 : - Asciis de ‘O’et ’P’ (options)- 
42 COUT EQU SFDED sAffiche CHRS(A) 115 : - Puis de ‘K’,’S',’*x" et ‘#'. - 
43 STROUT EQU SDB3A :Affiche la chaine (A,Y) 116 : - = 
44 PRNFAC EQU SED2E sAffiche FAC 227 5 BE 
45 CROUT EQU SFD8E :KRetour chariot 118 COMPAR LDA #i 
46 PRBL2 EQU SFS4A :X espaces 113 CPX #'0’ 
47 PRNTAX EQU SF941 sAffiche A et X 120 BNE PASU 
48 LINPTR EQU SED24 sAffiche X*256+A 121 STA OPNUL 
49 GIVAYF EQU SE2F2 122 BEQ NEWBCL 
50 BELL EQU SFF34 123 PASO CEX #'p’ 
S1 ; 124 BNE PASP 
521} ; 125 STA UPPOIN 
53 ORG 59290 126 BEQ NEWBCL 
54 OBJ $800 127 ; 
5S ; 128 PASP CPX #°R° 
SE RER 129 BEQ FINBCL 
S7 ; T F 130 ASL 
58 ; ë Stocke le vecteur & et = 131 CPX #’s’ 
59 ; es Les nouveaux pointeurs. - 132 BEQ FINECL 
60 ; - (=CLEAR) > 133 ASL 
CC 134 CPX #°x° 
62 ; 135 BEQ FINBCL 
63 LDA #S4C 136 ASL 
64 STA VECTEUR 137 CPX #°#° 
65 LDA #TRTAMPO 138 BEG FINBCL 
66 LDY /TRTAMPO 139 LDA #%xO0001111 
67 STA VECTEUR+1 140 ; 
68 STY VECTEUR+2 141 FINBCL CEY #1 
63 STA HIMEM 142 BNE RETIi 


ÉD 
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143 
144 
145 
148 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
168 
167 
16 
16% 
170 
171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182 
183 
134 
185 
186 
187 
188 
183 
130 
191 

192 
153 
134 
135 
136 
197 
1938 
133 
200 
201 
202 
203 
204 
295 
206 
207 
208 
293 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
2293 
230 
231 
232 
233 
234 
235 
236 
237 
238 
2393 
240 


RET1 


NEWBCL 


FIN 


NOM 
TYPE 
NUL 
NBRDIM 
CHUIX 
LENVAR 
GEPUIN 
OPNUL 
AMPEKS 
v2 

Vs 


MESSAGE 
MESSAGEO 
MESSAGE1 


MESSAGE2 


TYPEO 


ve ve ne ve ne ve se ve 
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ORA AMPERS 
STA AMPERS 


JSK CHRGET 
JMP TRTAMP 


LDA AMPERS 
BNE TRAITM 
LUA #%11111111 
STA AMPERS 
JMP TRAÏTM 


[= 

o 

U 
EEE ps 


HEX 80 

ASC “Tableau 
HEX O0 

45C “ en * 

HEX 00 

ASC “* en ligne " 
HEX O0 


ASC “fonction 
HEX O0 
ASC “ «S " 


sun 

:Modifie 
:Ampers 

:En 
:Consequence 


:<>U 81 ovtion ‘Fr’ 
:<>0 s1 option ‘0’ 


nee mm 0 00 


” 


* TRAITEMENT DES 


” VARIABLES SIMPLES 


* 


C2 


C2 


nnonnnennmnnnnnnnnesee 


LDA #4 
STA CHOIX 


DEC CHUIX 
BMI TABLEAU 
LSK AMPERS 
BCC AUTRE 


LDA LOMEM 
STA ADVAR 
LDA LOMEM+1 
STA ADVAR+1 


CMP ARYTAB+1 
BCC TEST 

LDA ADVAR 
CNP ARYTAB 
BCS AUTRE 


JSK INPÜT 

LDA #2 

JSK POIN.A 
CPX CHOIX 

BNE SUITE 


LDY CHOIX 
BEQ B1 

JSR IFAFNUL 
LDX OPNUL 
BNE Bi 

TAX 

BEQ SUITE 


LDA #NÜM 
LDY /NOM 
JSK STROUT 
JSR PRNVAR 


LDA #5 
JSR POIN.A 
JMP GÜ 


:Ün passe 
A un autre 
:Type de 
:Variable 


:Ün commence 
:Le balayage 
3A partir 
:De LOMEM 


:Ün verifie 

Que l’on 

:N'est pas sorti 
:De la zone des 
:Variablies 


:Un regarde s1 
:Cette variable 
:Convient 


:$1 fonction, 
:On passe. 

: On teste 

:Sa valeur 
:Pour 
L'option ’C’ 


:Ün envoie 

;Son nom 

:A l'affichage 
Avec son contenu 


:Ün passe 
;À la variable 
: Suivante 


snnnnrennnnnnnmnnnnnnne nn 


TRAITEMENT DES 


C2 


VARIABLES DIMENSIONNEES + 


rennrnnnmsnmnnnnnennnnnnn ee 


241 
242 
243 
244 
245 
246 
247 
248 
243 
250 
251 
252 
253 
254 
2355 
256 
257 
258 
235 
260 
26i 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
283 
290 
2931 


2933 


297 


TABLEAU 


;: 


AUTREZ 


CONT 


B3 


NONOP 


Ba 





LDA 
STA 


DEC 
BNE 
RTS 
LSR 
ECC. 


LDA 
STA 
LDA 
STA 


LDA 
CHE 
BCC 
LDA 
CHF 
BCS 


J5K 
CPX 
HEQ 
JNP 


LUY 
LDA 
ASL 
STA 


LDA 
JSR 


LDA 
STA 
LDUA 
STA 


LDA 
BEQ 


LUA 
LDY 
J5K 
LDA 
LDY 
JSR 
LUX 
LDY 
DEY 
INX 
LDA 
STA 
DEY 
DEX 
LDA 
STA 
INX 
INX 
DEY 
BPL 
JSR 
LDA 
LDY 
JSK 
JSR 


LDX 
LDA 
DEX 
STA 
BNE 


LDA 
JSR 


LDX 
INX 
CPX 





#4 
CHOIX 


CHOIX 
CONT 


AMPERS 
AUTREZ 


ARYTAE 
ADVAR 
ARYTAB+1 
ADVAR+1 


ALVAR+1 
STREND+1 
TESTZ 
4DVAR 
STREND 
AUTREZ 


INPUT 
CHOIX 
Bz 
SUITEZ 


#4 
CADVAR)D ,Y 


NBRDIM 


#5 
POIN.A 


ADVAK 
IMPLDIM 
ADVAR+1 
IMPLDIM+1 


UFPOLN 
NONOP 


#MESSALE 
/MESSAGE 
STKOUT 
#NÜM 
{NOM 
STKOUT 
#O 
NBRDINM 


C{MPLUIM),Y 
ADDIM,X 


CIMPLDIM) ,Y 
ADDIM,X 


B3 

AFFDIM 
#MESSAGEO 
/MNESSAGEO 
STROUT 
AFPOINO 


NBKD1n 
#0 


ADDIM,X 
B4 


NBRDIM 
POIN.A 


CHOIX 


#4 
NON 


LENVAR 


iFAFNUL 
OPNUL 
AFF 


LE] 


#NÜM 
{NON 
STROUT 
AFFDIM 
PRNVAK 


LENVAR 
POIN.A 


sRetour au BASIC 


: Un commence 
:Le balayage 
A partir 
:De ARYTAB 


:Un verifie 
:Que l'on 
:N'est pas 
:Sorti de 
:La zone des 
: Tableaux 


:Un teste ie 
: Tableaux pointe 
:5'11 ne convient 
:Pas:SUITE2 


:Un stocke 

:Le nbre de 
:Limensions 
;Mult. par 2 


:Un stocke 
:L'adresse 
:L’impiantation 
:Des dimensions 


:L'ontion ‘P’ 
A 
:Ete prise... 


5... Un 
sAffiche 


:Les 
:Dimensions 


:Maximums... 
s...Et le 
:Pointeur 
:Pointeur 
tinitiai. 


:kemise 

À zero 

:bes 
:Compteurs 
:be dimension 


:0n pointe 
sur la variable 


:On determine 
:Le nbre 
:D'octets 
Qu'elle 
:Üccupe et on 
;:Le stocke 


:Un atticne 
:Le nom 

Les DINS 
:La variabie 


:0On pointe eur 
:La prochaine 











| 


339 
340 
341 
342 
343 
344 
345 
346 
347 
348 


350 
351 


362 


372 


ADD 


SUITE2 


pisse ve ve ve ve ne me ne na ve ne ne ne ve 


NPUT 


ENTIER 


CHAINE 


OK 


LDX #0 

LDY NBRDIM 

DEY 

DEY 

INX :On 

CLC 3Met 

LDA ADDIM,X :A Jour 
ADC #1 :Les 

STA ADDIM,X :Compteurs 
DEX :De dimensions 
LDA ADDIM,X fEt... 

ADC #0 

STA ADDIM,X 

CMP CIMPLDIM),Y 

BNE BCLE 

INX 

IiNY 

LDA ADDIM,X 

CMP CIMPLDIM),Y :...0n 

BNE BCLE :Continue 
LDA #0 :51 ie 

DEX : Tableau 
STA ADDIM,X :N'est pas 
INX :Termine... 
STA ADDIM,X 

INX 

DEY 

DEY 

DEY 2e-sS1 OÙi 
BPL ADD :On passe 
JMP GO1 AU suivant 
LDY #2 :Ün pointe 
CLC : Sur 

LDA (CADVAR),Y :Le tableaux 
ADC ADVAR Suivant 
TAX tête... 

INY 

LDA (CADVAR),Y 

ADC ADVAR+1 

STA ADVARK+1 :...0n 

STX ADVAR :Retourne 
JMP GO1 :En GO1 
nannnnnnnnanannanaunannnm ee nn 
- + 

»" DÉBUT DES SOUS-PROGKAMMES * 
LA 2 
LÉLLRLLELLLLLLLLLLLLLLLLLLLLLLLE) 


- INPUT determine la nature de - 
- La variable pointee et range - 


. son nom. = 
LDX #1 :leèr octet 
LDY #0 sSuperieur 
LDA CADVAR),Y A 580 --> 
BMI ENTIER sEntier ou fonction. 
INX 
STA NON 
INY : 2eme octet 
LDA CADVAR),Y ;Superieur 
BM1 CHAINE ;A S80 --> 
INX ;Chaine ou entier 
CPX #2 
BNE CHAINE 
LDX #0 FONCTION 
AND #%*01111111 
BNE OK 
LDA #SA0 
STA NOM+1 :Stocke 
LDA TYPEO,X Le non 
STA TYPE Et le type. 
RTS :Puis retour 


sResultat dans X: 


:1:Entier .2:Chaine .3:Reel .0:Fonction 
; = PRNVAR affiche la variable - 
; = Pointee et les pointeurs - 
; = Si option ’P’, puis - 
; = Fait un test-clavier . L 
PRNVAK LDA #'"=" 

JSR COUT 

LDA CHOIX 

BEQ FONCTIU 

CMP #2 

BNE NONALPH 

LDY #1 ;:On aftiche 

LDA (CADVAR),Y La variable 


SÉTÉRSÉERELANMENHEAMMANS 
ASE 


32 


437 
438 
433 
440 
441 
442 
443 
444 
445 
446 
447 
448 
4493 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
a71 
472 
473 
474 
475 
476 
477 
478 
479 
480 
a81 
482 
483 
484 
485 
486 
487 
488 
489 
4930 
491 
492 
493 
494 
435 
496 
497 
498 
499 
S00 
501 
502 
503 
S04 
505 
506 
507 
508 
503 
510 
S11 
S12 
513 
S14 
515 
516 
517 
518 
519 
520 
521 
522 
523 
S24 
525 
526 
527 
528 
529 
530 
S31 
532 
S33 
534 


B8 


PRNFIN 


PROCHE 


VERIF 


TROUVE 


NONALPH 


REEL 


AFFAC 


AFPOINT 


AFPOIN1 


AFPOINO 


NONPOIN 


S1 


STA 
INY 
LDA 
STA 
LDY 
LDA 
JSR 
CPY 
BEQ 
LDA 
ÜRA 
INY 
BNE 
LDA 
J5R 
JP 


LDA 
LDY 
JSK 
LDA 
BEU 
LDY 
LDA 
STA 
TAX 
INY 
LDA 
STA 
LDA 
LDY 
JSK 
DEC 
LDY 
DEY 
LDA 
BNE 
DEY 
DEY 
DEY 
DEY 
DEY 
INY 
LDA 
BNE 
iNY 
INY 
INY 
LDA 
TAX 
INY 
LDA 
JSR 
JMP 


CMP 
BEQ 


LDY 
LDA 
TAX 
INY 
LDA 
TAY 
TXA 
JSR 
JP 


LDY 
LDA 
JSR 
JSR 


LDA 
BEQ 
LDA 
SEC 
SBC 
BCS 
LDA 
TAX 
JSR 


LDA 
JSR 
LDX 
LDA 
JSK 


JSR 
LDA 
BPL 
LDX 
CMP 
BEQ 
LDA 
BPL 
LDX 


vo 


CADVAR) ,Y 


vi 

#0 
POSE 
COÛT 
V3 
PRNFIN 
(VO),Y 
#580 


B8 

POS 
COUT 
AFPOINT 


#MESSAGEZ 
/MESSAGE2 


STROUT 
OPPOIN 
NONPOIN 
#O 


CADVAR) ,Y 


vo 


(ADVAR) ,Y 


vi 


#MESSAGEL 
/MESSAGE1 


STROUT 
vi 
#259 


(VO) ,Y 
PROCHE 


(VO) ,Y 
VERIF 


€VO) ,Y 


CVO),Y 
LINPTR 
AFPOINT 


#3 
REEL 


#0 


CADVAR) ,Y 


{ADVAR) ,Y 


GIVAYF 
AFFAC 


ADVAR+1 
ADVAR 
MOVFM 
PRNFAC 


OPPOIN 
NONPOIN 
#19 


ATAB 
AFPOIN1 
#2 


PRBL2 


#"s" 
COUT 
ADVAR 
ADVAR+1 
PRNTAX 


CROUT 
KBD 
NOPAUSE 
KEYSTR 
#583 
RETBASIC 
KBD 

Si 
KEYSTR 


:Alpha. s1 
Cela en 
:Est une 


FA 


:Si option ‘’p’, 
:0n 

: Cherche 

:La ligne 
:BASIC 

: Ou 

Est 

:implante 

:La 

:Fonction. 


;Une 

: Fois 
:Trouvee, 

;On l'affiche 
Et 

;: On envoie 

;A l'affichage 
: Des 
:Pointeurs, 


:On 
Affiche 
:L'entier. 


:0n envoie 
:Le reel 
:Dans FAC et 
:On l’affiche 


:On affiche 
:Les pointeurs 
:Si option ’P’ 
:En respectant 
:La mise 

:En page 


:0On effectue 
:Le test-clavier 


:Si 

:C’'est CTL-C 

;:On retourne 

;Au BASIC par BELL 
3Sinon on fait 
;Üne pause 
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535 CMP #583 574 LDA ADVAR+i 
536 BEQ RETBASIC 575 ADC #0 
537 NOPAUSE RTS 576 STA ADVAR+1 
538 RETBASIC PLA 577 RTS 
539 PLA 578 : : 
540 JMP BELL S79 5 
541 ; 580 - - 
S42 5 --------------- 581 : - IFAFNUL test la valeur - 
S43 ; > > S82 ; - De la variable pointee 5 
544 ; - AFFDIM affiche les dimensions- 583 - En vue de l’option ‘0’ - 
S45 ; = Stockees en $300... L S84 ; : Et stocke la longueur a 
546 : = - 585 : - De la chaine si cela en - 
S47 5 -------------- nn 586 ; L Est une . - 
548 AFFDIM LDY #0 587 : - - 
549 LDA #"( S88 3 ------- 
550 AGAIN JSR COUT 589 ; 
551 LDA ADDIM,Y 590 1FAFNUL LDY #0 
552 INY 591 LDA (ADVAR),Y 
553 LDX ADDIM,Y 592 iNY 
554 STY V2 593 CPY CHOIX 
555 JSR LINPTR 594 BEG ENTIER 
556 LDA #"," 535 INY 
557 LDY V2 596 CPY CHOIX 
558 INY 597 BNE RETO 
559 CPY NBRDIX 598 LDX OPPOIN :81 option ‘P’ 
560 BNE AGAIN 539 BEQ RETZ :0n limite la 
S61 LDA #")° 600 CHE #13 ‘Longueur de la 
562 JMP COUT 601 BCC RET2 Chaine pour 
563 602 LDA #12 :L'affichage 
564 ÿ  ------------------ 603 RET2 STA V3 
565 - - 604 KTS 
566 - Adaditionne l’accumulateur - 605 ENTIER1 CLC 
567 - Avec ADVAR , - 606 ADC (ALDVAR),Y 
568 ; - - 607 BCC RETO 
S69 5  ------------- 608 TYA 
570 ; 609 RETO RTS 
571 POIN.A  CLC 610 ; 
572 ADC ADVAR 611 END 
573 STA ADVAR 
S348- 4C 72 93 AS O4 8D 2D 93 S4D8- AS BD 20 ED FD AD 2D 93 
Programme PRNVAR (BIN) 5566 éc 72 0 DO 01 60 4E 31  94E0- FO 2A C9 O2 DO 67 AO O1 
93B8- 93 90 F5 AS 6B 85 FB AS S4E8- B1 FB 85 CE C8 B1 FB 85 
3230- AS 4C 8D F5 03 AS B4 AO 93C0- 6C 85 FC AS FC CS 6E 90 94FO- CF AO 00 AS A2 20 ED FD 
9298- 92 8D F6 03 8C F7 03 85 93C8- 06 AS FB CS 6D BO Ei 20 S4F8- CC 33 93 FO 07 Bi CE 09 
92A0- 73 84 74 85 6F 84 70 AS 93D0- BO 94 EC 2D 93 FO 03 4C 9500- 80 C8 DO F1 AS A2 20 ED 
92A8- 69 Ad 6A 85 6B 84 6C 85 33D8- 9C 94 AO O4 Bi FB OA 8D 9508- FD 4C 6B 95 AS 4E AO 93 
32B0- 6D 84 6E 60 AO O0 8C 31 93E0- 2C 93 A9 05 20 CE 95 AS 9510- 20 3A DB AD 2F 93 FO 71 
32B8- 93 8C 30 93 8C 2F 93 AA 93E8- FB 85 F9 AS FC 85 FA AD 9518- AO 00 Bi FB 85 CE AA C8 
32C0- FO 59 EO 3A FO 55 EO 28 33FO0- 2F 93 FO 33 A9 34 AO 93 9520- B1 FB 85 CF AS 43 AO 93 
92C8- DO O4 AO O1 DO 47 EO 29 33F8- 20 3A DB A9 28 AO 93 20 9528- 20 3A DB C6 CF AO FF 88 
32D0- DO OC CO O1 FO 04 A9 FO 3400- 3A DB A2 O0 AC 2C 93 88 9530- B1 CE DO FB 88 88 88 88 
22D87 DO 35 40 00 FO 37 AS 01  g4o8- E8 B1 F9 9D 00 03 88 CA  9538- 88 C8 Bi CE DO FB C8 C8 
92E0- EO 30 DO O5 8D 30 93 FO 3410- Bi F9 SD 00 03 E8 E8 88 9540- C8 Bi CE AA C8 Bi CE 20 
92E8- 2C EO SO DO OS 8D 2F 93  g418- 10 EE 20 AA 95 A9 3E AO 9548- 24 ED 4C 6B 95 C9 03 FO 
392F0- FO 23 EO S2 FO 11 OA EO  9420- 93 20 3A DB 20 7D 95 AE 9550- 10 AO 00 Bi FB AA C8 B1 
22F87 24 FO OC OA EO 28 FO 07  g428- 2C 93 A9 00 CA 9D 00 03  9558- FB A8 8A 20 F2 E2 4C 68 
3300- OA EO 23 FO O2 A9 OF CO 3430- DO FA AD 2C 93 20 CE 95 9560- 95 A4 FC A5 FB 20 FS EA 
23087 O1 DO 04 OA OA OA OA OD g438- AE 2D 93 E8 EO 04 DO O1  9568- 20 2E ED AD 2F 93 FO 19 
9310- 31 33 8D 31 93 20 Bi O0 9440- E8 8E 2E 93 20 DA 95 AE 9570- A9 13 38 ES 24 BO O2 A9 
9318- 4C BF 92 AD 31 93 DO 3B 9448- 30 93 DO 03 AA FO OD A9 9578- O2 AA 20 4A F3 AS A4 20 
9320- A9 FF 8D 31 93 4C SB 93 9450- 28 AO 93 20 3A DB 20 AA 9580- ED FD A6 FB A5 FC 20 41 
3328- CF C4 C5 00 B1 AC C1 Ad 9458- 95 20 D8 94 AD 2E 93 20 9588- F9 20 8E FD AD O0 CO 10 
3330- C4 BO BO BO 8D D4 El E2  9460- CE 95 A2 00 AC 2C 93 88 9590- 13 AE 10 CO C9 83 FO OD 
3338- EC ES E1 F5 AO OO AO ES 9468- 88 E8 18 BD 00 03 63 01 9598- AD 00 CO 10 FB AE 10 CO 
9340- EE AO OO AO ES EE AO EC 9470- 9D O0 03 CA BD 00 03 69 9SAO- C9 83 FO O1 60 68 68 4aC 
3348- ES E7 EE ES AO OO E6 EF 3478- 00 SD 00 03 Di F9 DO C4 SSA8- 3A FF AO O0 AS A8 20 ED 
39350- EE ES F4 E9 EF EE OO AO 9480- E8 C8 BD 00 03 Di F3 DO 95BO- FD B9 00 03 C8 BE O0 03 
93358- AS A4 AO A9 O4 8D 2D 93 9488- BB A9 00 CA 9D 00 O3 E8 935B8- 8C 32 93 20 24 ED A9 AC 
9360- CE 2D 93 30 46 4E 31 93 3490- SD 00 03 E8 88 88 88 10 95CO- AC 32 93 C8 CC 2C 93 DO 
2368" 90 F6 AS 69 85 FB AS 6A  9498- DO 4C C3 93 AO O2 18 B1  g5ca- ES A9 A9 4C ED FD 18 65 
23707 85 FC CS 6C 90 06 AS FB  94A0- FB 65 FB AA C8 B1 FB 6S  G5Do- FB 85 FB AS FC 69 00 85 
9378- CS 6B BO E4 20 BO 94 A9 9448- FC 85 FC 86 FB 4C C3 93 95D8- FC 60 AO 00 B1 FB C8 CC 
3380- 02 20 CE 3S EC 2D 93 DO  94BO- A2 O1 AO 00 Bi FB 30 O1 95E0- 2D 93 FO 15 C8 CC 2D 93 
9388- 1A AC 2D 93 FO OB 20 DA 94B8- E8 8D 28 93 C8 B1 FB 30 9SE8- DO 15 AE 2F 93 FO 06 C9 
9390- 3S AE 30 93 DO O3 AA FO  94CO- 07 E8 EO O2 DO 02 A2 00  S5F0- OD 930 02 A9 OC &D 33 93 
3398- OA AS 28 AO 93 20 3A DB 34C8- 29 7F DO O2 AS AO 8D 29 95F8- 60 18 71 FB 90 O1 98 60 
3340- 20 D8 94 A9 05 20 CE 95 94D0- 33 BD 57 93 8D 2A 93 60 
15 LIST 15,80 
Programme DEMO À 20 DIM AS(1,2,3):VS = “,“*: DEF FN B(X) 
S PRINT CHRS (4)'BRUN PRNVAR(BIN)" = 1 / X 
10 TEXT : HOME : PRINT “ TEST DE L 30 FOR I = O TO 1 
A FONCTION PRNVAR"‘ 40 FOR J = O TO 2 
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50 FOR K = O TO 3 À S(1,1,03="1,1,0" 50918 

60 AS(I,J,K) = STRS (I) + VS + STRS (J À S(0,2,0)="0,2,0" $091B 

) + VS +. STRS (K) À $(1,2,0)="1,2,0" $091E 

70 NEXT K,J,I A $(0,0,1)3="0,0,1" $0921 

80 GET RS: & OP A $(1,0,1)2="1,0,1" 50924 

A S(0,1,1)="0,1,1" $0927 

A S(1,1,1)2="1,1,1" S092A 

Exécution de DEMO 1 A #(0,2,1="0,2,1" $032D 

A S(1,2,1)="1,2,1" 509330 

X = S08E3 A $(0,0,2)2="0,0,2" 50933 
T..< SO8EA À S(1,0,2)="1,0,2" 50936 

J = S08F1 A S(0,1,2)="0,1,2" 50933 

K =4 SO8F8 A. S(1,1,29="1,1,2" 50930 

V S="," S08D5 A $(0,2,2)="0,2,2" $093F 

R S=*" * SO8FF A S(1,2,2)3="1,2,2" 50942 

B =fonction en ligne 20 S08DC A $(0,0,3)2="0,0,3" 50945 

A S(1,0,3)="1,0,3" 50948 

# Tableau A $S(2,3,4) en $S0909 A $(0,1,3)2="0,1,3" $094B 
g A $(0,0,0)="0,0,0" $090F À S(1,1,8)="1,1,3" S094E 
; A $(1,0,0)="1,0,0" 50912 À S(0,2,3)="0,2,3" $0951 
Fe A S(0,1,0)="0,1,0" $0915 A S(1,2,3)="1,2,3" 50954 





Documentation de tables de shapes 


Erick Ringot 


D : adresse de fin de table 








Ce programme permet de documen- 
ter des tables de formes, en préci- 
sant : 


- La longueur de la table. 

- Le nombre de formes. 

- Pour chaque forme, l'adresse rela- 
tive par rapport au début de la table. 


Il permet également de représenter 
les formes à l'écran ou sur impri- 
mante. 


Principe du programme 


e La table est chargée en $4000 — 
16384, soit en page HGR2. 

e Le premier octet est N, nombre de 
formes composant la table. 

e Pour chaque forme, on lit 
l'adresse relative (groupe de deux 
octets consécutifs). 

e On vérifie que l’octet précédant 
cette adresse est bien nul (sinon, 
on n’a pas affaire à une table de 
formes). 

e Pour déterminer la longueur de la 
table, on parcourt les octets de la 
dernière forme, jusqu’à l'obtention 
d'un zéro terminant à la fois cette 
forme et la table. 


Variables 


À = 16384 (adresse de chargement) 

ADRESSE(i) : tableau des adresses 
relatives des formes 

AH,AL: octets fort et faible de 
l'adresse relative courante 





ER : code de l'erreur éventuelle 

IEXIR% : indicateurs d'usage de 
sous-programmes d'édition 

LFL : indices de boucle 

LL : longueur de la table de formes 

LSB%,MSB% : octets faible/fort de la 
longueur LL 

MESSAGES : message renseignant 
sur le déroulement du programme 

MX,MY : marges de la page haute 
résolution 

N : nombre de formes 

N$ : nom de la table 

O%i), Of$i), i variant de 1 à 4. 
Quartets composant LL, en déci- 
mal, en hexa. 

PX,PY : pas horizontal, vertical dans 
la page HGR 

Q,P : nombre de lignes, de colonnes 


dans la page HGR 

X,Y : coordonnées de la forme cou- 
rante dans la page HGR 

ZE: octet normalement nul si le fi- 
chier N$ est bien une table 


Remarque: le  sous-programme 

d'impression est écrit pour l'impri- 

mante SEIKOSHA GP-100a, connec- 

tée sur le slot 1. La signification des 

codes de contrôle utilisés est la sui- 

vante : 

CHR$(20) <CTRL-T> : Empêche 
l'écho à l'écran 

CHR$(14) <CTRL-N> : Ecriture 
double largeur 

CHR$(15) <CTRL-O> : Rétablit la 
simple largeur 

CHR$(17) <CTRL-Q> : Effectue la 
copie de la page haute résolution 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


250 
260 


270 


280 
290 
300 


310 
320 


330 


340 


350 


360 


370 
380 


3930 
400 
410 


420 


430 
440 
450 
460 


470 
480 


490 
500 
510 
520 


530 
540 
550 
560 
570 


580 


590 


DOCUMENTATION 
DES TABLES DE 
FORMES 
DOC/SHAPE ##» 
REM -1- INITIALISATION 
LOMEM: 24576: REM APRESHGR2 
ONERR GOTO 1150 
TEXT : HOME 
PRINT “NOM DE LA TABLE...." 
INPUT "";NS: IF NS = “‘“* THEN 
GOTO 1010 
REM -2- MESSAGE 
VTAB 20: INVERSE PRINT MESSAGES: 
I = 1 TO 1000: NORMAL : NEXT 
20: CALL - 868: RETURN 
-3- VERIFICATION TTABLE 
4 # 16 * 3: POKE 232,0: POKE 233,64 
: REM ADRESSE TABLE 
MESSAGES = “CHARGEMENT DE “ + 
240 
PRINT CHRS (4)'"BLOAD''NS'",A'"A 
N = PEEK (A): REM NOMBRE DE FORMES 
DIM ADRESSE(N)D: REM TABLEAU DES ADRESS 
ES RELATIVES 
FOR I = 1 TO N 
AL = PEEK (A + 2 * 1): 
ATIVE OCTET FAIBLE 
AH = PEEK ÇA + 2 * I + 
RELATIVE OCTET FORT 
ADRESSE(I) = AH * 256 + 
SSE(I) > 2 ” 16 THEN 
SSE RELATIVE 
ZERO = O: IF I > 1 THEN ZERO = PEEK (A 
+ ADRESSE(I) - 1): REM DERNIER OCT 
ET DE LA FORME PRECEDENTE 
IF ZERO < > © THEN GOTO 1210: REM CE 
N’EST PAS UNE TABLE DE FORMES t! 
NEXT I 
MESSAGES = 
240 
RETURN 
REM -4- LONGUEUR DE LA TABLE 
D = A + ADRESSE(N): REM ADRESSE DERNIER 
E FORME 
IF PEEK (D) < > G THEN D = D + 1: GO 
TO 420: REM LA TABLE SE TERMINE PAR 
UN ZERO 
LL = D - À + 1: REM LGUEUR LDECIMALE 
REM * CONVERSION HEXA #* 
MSB%X = LL / 25S6:LSB%x = LL - 256 * MSB*% 
O%x(1) = MSB%x / 16:0%(2) = MSB%x - 16 * O 
%x(1):0%x(3) = LSB%x / 16:0%x(4) = LSB*%x 
- 16 * 0%(3): REM QUARTETS COMPOSANT 
L’ ADRESSE 
FOR I = 1 TO 4:0$(1) = STRS 
IF O%x(I) > 9 THEN OS(I) = 
+ S5) 
NEXT 
RETURN 
REM -5- REPRESENTATION 
IF IR%x = 1 THEN POKE - 
- 16302,0: POKE - 


END 


FOR 
VTAB 


REM 
A = 


NS: GOSUB 


REM ADRESSE REL 


1): REM ADRESSE 
AL: IF A + ADRE 
1210: REM ADRE 


NS + ‘“ EST UNE TABLE‘: GOSUB 


(OK(I)) 
CHRS (O%(I) 


16297,0: POKE 
16304,0: GOTO 7 
POKE - 16302,0 
IR%x = 1 

HCOLOR= 3: SCALE= 
Q = INT ( SQR (N)) 
PY INT (192 / Q) 


1: ROT= © 


REM NB.LIGNES 
REM INTERVALLE EN 


. 
. 
. 
- 


(Q - 1) »# PY) / 2: REM MAKG 


CN / Q): IF N > P * Q THEN P = 
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330 
340 


. 350 


360 


370 

380 

9330 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1030 
1100 
1110 


1120 
1130 
1140 
1150 


1160 
1170 
1180 
1190 


1200 
1210 





P +1 
INT (Z80 / P) 


(280 - (P - 1) * PX) / 2 


1=F+(L-1)+P 

IF I > N THEN 710 
= MY + (L - 1) * PY: 
= MX + CF - 1) » PX: 

DRAW I AT X,Y 

NEXT F 

NEXT L 

GET AS: TEXT 

RETURN 

REM -6- EDITION IMPRIMANTE 

REM SEIKOSHA GP100 SLOT 1 

PRINT CHRS (13) CHRS (4)"PR#1" 

PRINT CHRS (20) 

PRINT CHRS (14) TAB( 20 - 

22NS CHRS (15): PRINT 

GOSUB 860 

PRINT 

POKE - 12317,0 

PRINT CHRS (17) 

PRINT CHRS (4)'PR#O" 

RETURN 

REM -7- TABLEAU D’ ADRESSES 

TEXT : HOME :IE%x = 1 

PRINT “LONGUEUR, OCTETS" 

PRINT “DECIMALE => “LL 

PRINT “HEXADECIMALE  -> S“OS(1)05(2) 
0OS(3)0$(4) 

PRINT : PRINT 

VTAB 9 

PRINT ‘“FORME"; TAB( 

POKE 34,10: VTAB 11 

FOR I = 1 TON 

PRINT TAB( S - LEN ( STRS (1))):1; T 
ABC 20 - LEN ( STRS (AD(1))));ADRES 
SE(1) 

IF IE* = O THEN 970 
1F 1 = NOR i = 10 = 
N GET AS: HOME 

NEXT 

IEX = O: TEXT 

RETURN 
REM 
GOSUB 
GOSUB 
HOME 
PRINT 
PRINT 
PRINT 
PRINT 


REM COTE 
REM ABSCISSE 


LEN (NS) / 


“NOMBRE DE FORMES ‘“"N 


15) ; ADRESSE" 


INT (I / 10) THE 


-0O- 
2650 
410 


PROGRAMME PPAL 


“COMMANDES‘" : PRINT 

"DESSIN DES FORMES...... 1" 
"TABLE D'ADRESSES..... s. 
"IMPRESSION... 
PRINT “AUTRE TABLE............ a" 
PRINT ‘"TERMINE. 
GET AS:A% = VAL (AS) 

ON A% GOSUB 520,850,750,1120,1130: GO 

TO 1030 


TEXT : HOME : END 

-8- TRAITEMENT ERREURS 

PEEK (222):LI = PEEK 
EEK (219) *# 256 

IF ER = 6 THEN MESSAGES = 
NNU‘*: GOSUB 240: RUN 

TEXT 

PRINT CHRS 


(218) + P 


NS + * 


(13) CHRS (4) '"PR#O" 

HOME : PRINT “ERREUR TYPE "ER: PRINT 
"LIGNE “LI: END 

REM -9- FICHIER NON-TABLE 

MESSAGES = NS + “ N’EST PAS UNE TABLE" 
: GOSUB 240: RUN 





SÉUSEFAAEEART 
ITS: 


AÉEARS 


tome 1 

par Serge et Gérard Liilio 
Voici un ensemble complet de pro 
grammes de Comptabilité sur Apple Il 
adapté au Nouveau Plan Comptable, 
pour petites entreprises. professions 
libérales, artisans, commerçants. On 
y trouve des programmes permettant 
l'édition des livre-journal, grand-livre, 
balance, bilan: la possibilité d'éditer 
les livres de banque, de TVA, de re- 
cettes, ainsi qu'un programme de dé- 
tection des erreurs de frappe. Capacité 
du système : compte à 6 chiffres, 400 
lignes par plan. 

Le livre : 184 pages - 120,00 FF 
La disquette : 195,00 FF 


Liome2 N 

par Serge et Gérard Liilio 

Ce second tome contient trois pro- 
grammes complémentaires des pro- 
grammes de comptabilité du tome Le 
* visualisation graphique tridimension- 
nelle des recettes el dépenses avec 
calcul des ratios. - tableaux des amor- 
tissements. - calcul d'impôts, ainsi 
qu'un programme de comptabilité gé- 
nérale pour les utilisateurs de disques 
8 pouces, disques durs ou d'une seule 
unité 5 pouces 1/4. 

Le livre : 144 pages - 110,00 FF 
La disquette : 195,00 FF 


















































par Jean-Michel Jégo 
Cet ouvrage présente l'analyse et la 
programmation 
paie et des charges salariales : fichiers 
de personnel, calcul 
élaboration d'un bulletin .de salaire 
avec congés payés. En fin d'ouvrage 
on aboutit à la tenue d'un cahier des 
charges salariales tel qu'il peut se 
senter dans une petite entreprise. At- 
tention : beaucoup de simplifications 
ont été apportées par rapport aux Si- 
tuations très diverses rencontrées par 
les professionnels de la paie. 


des problèmes de la 


| des cotisations, 


pré- 


Le livre : 136 pages - 110,00 FF 
La disquette : 195,00 FF 


par Bernard Suimon 

Sont traités dans ce livre : l'analyse des 
coûts marginaux, le calcul de seuils de 
rentabilité, le Direct Costing, le calcul 
des ratios où du Fond de Roulement 
bilité des investis- 
es stocks. Chaque 
sé avec un 


minimum, la renta 
sements et la gestion d 
programme est Propo 
exemple d'application. 
Le livre : 156 pages - 100,00 FF 
La disquette : 195,00 FF 


UVÉ AU 
par Hervé Thiriez NO 


Multiplan est un progiciel qui permet 
de gérer plusieurs tableaux simultané- 
ment: cet ouvrage sera Pour les pos- 
sesseurs d'ordinateurs Apple Il Plus où 
{Je un véritable guide d'utilisation de 
Muitiplan grâce à des exemples pro- 
gressifs et à de nombreux cas d'appli- 
cation (gestion de portefeuilles, de 
copropriété. feuille de paie, impôts, 
tableaux de bord, etc.) 

Le livre : 216 pages - 100,00 FF 
La disquette : 195,00 FF 


par Hervé Thiriez 
Après une présentation progressive du 
modèle Visicalc, l'ouvrage étudie de 
nombreux cas d'application : feuille 
d'impôt, gestion de copropriété, paye, 
facturation. permettant d'introduire 
les différentes instructions et astuces 
d'utilisation 


Le livre : 176 pages - 90,00 FF 
La disquette : 195,00 FF 


| par Jacques Boisgontier 


|tation Disque € 
| Basic Applesoit 


|ces techniques 


La disquette : 195,00 FF 





| Pour apprendre progressivement la 
| programmation des applications utili- 
sant les fichiers l'ouvrage commence 
| par une présentation concise etillustrée 
| des comr:andes du Système d'Exploi- 
t des instructions du 
Les instructions des 
| fichiers séquentiels et à accès direct sont 
|ensuite décrites ainsi que leur utilisa- 
| tion. Des méthodes pratiques, souvent 
| mal connues, montrent comment utili 
| ser au mieux des fichiers à accès direct: 
| accès indexé, liste inverse. Une vingtaine 
| de programmes illustrent l'utilisation de 


|Le livre : 176 pages - 90,00 FF 

















































Bibliothèque scientifique 


en Pascal 

par Hervé Haut 
Les procédures proposées dans cet 
ouvrage sont conçues Pour être implan- 
tées dans le System Library du langage 


L'utilisateur disposera d'une biblio- 


thèque enrichie, 
lution aisée et performante d'un grand 


nombre de problèmes mathématiques 
et statistiques souvent rencontrés dans 
les programmes scientifiques. 

Le livre : 152 pages - 0,00 FF 
La disquette : 195,00 FF 


























Modèles pratiques de décision 


Tome ] 

par Jean-Pierre Blanger 

Cet ouvrage vise l'automatisation du 
processus de la prise de décision, Les 
différentes techniques exposées sont 
complétées d'un exemple et d'un pro” 
gramme en Basic pour permettre au 
lecteur une rapide mañtrise des modèles 
présentés et leur intégration à de nom- 
breuses applications (simulation, gestion. 


intelligence artificielle..| 
Le livre : 144 pages - 90,00 FF 
La disquette : 195,00 FF 


Méthodes de calcul numérique 
par Claude Nowakowski 
Tome 1 : Equations non linéaires. poly- 
nômes, calcul matriciel. interpolation. 
intégration et équations différentielles. 
problème les différentes 
méthodes de calcul numérique sont 
étudiées. Ces algorithmes sont illustrés 
par un organigramme, Un programme 
en Basic et un exemple d'exécution 
Le Tome 2 donne : des algorithmes plus 
élaborés ou pius subtils et aborde de 
nouveaux thèmes approximation des 
fonctions, problèmes aux limites. équa- 
tions aux dérivées partielles 

Chaque algorithme est programmé en 


Basic et en Pascal. 

Tome 1 : 144 pages - 90,00 FF 
Tome 2 : 184 pages - 110,00 FF 
La disquette pour les 2 tomes : 


(195,00 FF 


JEAN-PIERRE 
BLANGER 

Modèles pr 
Tome 2 
MODELES \ par Jean-Pierre Blanger 

Ce tome 2 de Modèles pratiques de 


décision offre un nouvel éventail de 


techniques visant l'automatisation du 
processus de la prise de décision Cha- 
cun des vingt modèles présentés donne 
lieu à un bre 
programme en 
Le livre : 176 pages - 90,00 
La disquette :| 195,00 FF 


atiques de décision 


s 


TIQUE" 
PRDECISION 
proc aMMes © C: 


nos PSE 


Le Basic et l'école - Tome | 
par Jacques Gouet 
Le livre décrit un ensemble de pro- 
Basic, destinés aux PrO” 
individuels. ll permet au x parents et aux élèves. 
é d'abor- ( Grammaire, mathématiques. conjugai- 
5 sons française. anglaise, sont autant 
d'exemples d'application qui font de 
cet ouvrage un Véritable outil d'ensei- 
gnement et d'initiation. à l'école ou à 


la maison. 
Le livre : 192 pages - 120,00 FF 


La disquette : 195,00 FF 


Modèles d'expression graphique 
par Jean-Pierre Blanger 
Cet ouvrage expose un €! 


polygone. hachurage de 
es modèles d' expression 
i Basic Applesoit. 
ment commentés et faci- 
lement adapta 
teurs individuels. 
Le livre : 232 pages - 130,00 FF 
La disquette : 195,00 FF 


Le Basic et l'école - Tome 
par Jacques Gouet 
Pourvu que vous possédiez un lecteur 
de disquette. VOUS allez pouvoir créer 
et gérer vous-même vos Questionnaires 
à Choix Multiples et VOS exercices. sui- 
vre les notes obtenues. etconcevoir des 


| Mathématiques et statistiques 


par Hervé Haut 
Cet ouvrage est un recueil de 16 logiciels 
eur] tant en ma- 


de base (niveau supéri 
* en statistiques. Chaque 


problème traité comporte une intro- 
duction numérique, un exposé de la 
technique de programmation utilisée. 
un organigramme détaillé et un pro- carnets de vocabulaire étranger. à l'école 
gramme complet en Basic suivi d'un comme à la maison 
Le livre : 160 pages - 110,00 FF 
La disquette : 195,00 FF 


| exemple d'utilisation. 
| Le livre : 272 pages - 100,00 FF 
| La disquette : 195,00 FF 


= ox 
= 
us mm 
CMEGET  MOUS 
ns us vx 
OO CR un us 
cœux em 
œ es 
en 0 
: 
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N'apprenez plus à devenir une machine, Apple a inventé Macintosh... 
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Pom'’s a vu LIGHT 1 


Alexandre Duback 


LIGHT 1 est un ensemble de logi- 
ciels d’aide à la programmation dif- 
fusé par la société Les Années Nou- 
velles. Si certains de ses modules 
sont à la portée de tous, ou presque 
(catalogue général, 
Tokens...), l'exploitation des métho- 
des de ‘pistage” de programmes 
qu'il propose sera vraisemblablement 
réservée aux utilisateurs ‘’profession- 
nels” des Apple II et //e. 


Le produit se présente sous la forme 
d’une disquette "logiciels”, accompa- 
gnée d’une documentation imprimée. 
L'apprentissage de son fonctionne- 
ment peut être complété par des 
stages de deux jours organisés par 
Les Années Nouvelles. Nous présen- 
terons ici rapidement les différentes 
fonctions offertes, en insistant sur 
celles qui nous paraissent les plus 
utiles ou les plus originales. 


Accès direct aux disquettes 


Le module baptisé ZAPPLE 7 per- 
met toutes les opérations de manipu- 
lation de disquettes (formatées en 
DOS 3.3) au niveau du secteur : 


e Lecture et affichage du contenu 
d’un secteur octet par octet, avec 
possibilité de modification et de 
ré-écriture. 

® Analyse et manipulation du direc- 
tory. 

e Etat d'occupation d’une disquette. 
e Recherche de fichiers et récupéra- 
tion possible de fichiers détruits. 
© Identification, nettoyage et trans- 
fert de secteurs (d'un disque à un 

autre). 

e Recherche de suites d’octets ou de 
caractères sur la disquette, pour 
savoir, par exemple, dans quels 
octets de quel secteur a été enre- 
gistrée la séquence DUPONT”. 

e Impression de suites de secteurs, 
ainsi que des différents secteurs 
occupés par un fichier donné. 


Ce programme peut donc aider à la 
récupération de disquettes endom- 
magées sur le plan logique, mais 
aussi à la mise au point de logiciels 
dont les opérations de lecture et écri- 
ture sur disquette ne produisent pas 
les résultats espérés. 


Autres utilitaires ponctuels” 


Nous regroupons ici différents pro- 
grammes assurant chacun un traite- 
ment précis et indépendant des 
autres. Les traitements concernés 
sont : 


e Constitution et exploitation d’un 


catalogue général de disquettes 
(liste alphabétique des fichiers, re- 


recherche de 


cherche d’un fichier donné, liste 
des fichiers dont le nom 
commence par une séquence don- 
née, tri selon le type de fichiers, 
liste des noms affectés aux dis- 
quettes enregistrées dans le catalo- 
gue, le tout à l'écran ou sur impri- 
mante). 

e Affichage des informations de 
chargement de fichiers binaires 
(adresse de départ et longueur). 

e Recherche de Tokens, de suites 
de caractères (y compris caractères 
de contrôle) et de variables dans 
un programme en Applesoft. 

® Recherche de séquences d’octets 
en mémoire centrale. 

® Impression désassemblée de codes 
hexadécimaux et recherche d’oc- 
tets inutilisés dans une portion de 
mémoire. 

e Comparaison de deux séquences 
d'octets en mémoire ou sur dis- 
quette. 


Le pistage de programmes 


Ce traitement très complet (et relati- 
vement complexe) peut être appliqué 
à des programmes en Applesoft ou 
en langage machine. Il permet très 
exactement de suivre pas à pas les 
étapes de déroulement d'un pro- 
gramme et de savoir quelles adresses 
et quelles routines du système sont 
utilisées, de suivre l'appel et l’exécu- 
tion des différentes séquences du 
programme lui-même, de connaître 
le contenu des registres après chaque 
instruction. 


Un premier module, baptisé Ariane, 
construit sur disquette une table des 
adresses d'instructions par lesquelles 
passe le programme étudié. Il est 
possible de définir la zone dont on 
veut ainsi pister le déroulement : fe- 
nêtre d’une adresse à une autre, mé- 
morisation uniquement à partir du 
passage à une adresse précise ou à 
un numéro d'instruction désigné - les 
instructions sont numérotées par le 
logiciel dans l’ordre chronologique 
d'apparition au cours de l’exécu- 
tion. On peut de même masquer” 
une séquence d'adresses pour le pis- 
tage, afin de ne pas encombrer la 
table avec le compte-rendu du dé- 
roulement de routines non significati- 
ves (attente au clavier, boucle de 
délai.….). 


Des logiciels annexes permettent en- 
suite d'exploiter cette table pour éta- 
blir une première ”’radiographie” du 
programme étudié : impression de la 
succession des adresses d'instructions 
empruntées, tableau des adresses 


distinctes et de leur nombre d’occur- 
rences (combien de fois passe-t-on 
par les routines CHRGET, NEWSTT, 
CHKNUM..), recherche des numé- 
ros d'instructions où apparaît telle ou 
telle adresse remarquable... Pour fa- 
ciliter l'interprétation de ces résultats, 
vous pouvez constituer des tables 
d'adresses remarquables en fonction 
des opérations sur lesquelles se cen- 
tre votre intérêt. Une table de cette 
nature permet d’affecter un nom à 
chaque adresse d'instruction que 
vous jugez particulièrement significa- 
tive, par exemple, CHRGET pour 
l'adresse $B1, NEWSTT pour 
l'adresse $D7D2... 


Cette première exploitation des résul- 

tats d'Ariane vous guidera ensuite 

dans l’utilisation du module Chalut, 

qui réalise le pistage pas à pas pro- 

prement dit. Sur les séquences criti- 

ques d'exécution précédemment iso- 

lées, Chalut vous donnera un 

compte-rendu complet du déroule- 

ment du programme : 

e Numéro d'instruction 

e Contenu des registres À, X, Yet S 
en hexa. 

e Valeur des bits du registre d'état 
du processeur. 

e Adresse de l'instruction et libellé 
fi hexadécimal et en désassem- 

lé. 

e Contenu d'adresses remarquables 

désignées. 


L'ensemble de ces modules produit 
donc finalement un rapport très dé- 
taillé sur le déroulement de vos pro- 
grammes. Ceci vise tout d’abord à 
isoler les causes d’un mauvais fonc- 
tionnement, mais peut également 
servir à connaître plus en détail les 
routines du moniteur de l'Apple ou 
de l'Applesoft, puisqu'il est parfaite- 
ment réalisable d'en pister le dérou- 
lement au moyen de petits program- 
mes qui les utilisent (un petit 
programme de calcul en Applesoft, 
par exemple, pour examiner à la 
loupe le fonctionnement des routines 
virgule flottante”, isoler les causes 
du bug” signalé dans Pom’s 11 et 
le résoudre, comme l'ont fait les au- 
teurs du logiciel.….). 

L'emploi d'un tel système ne semble 
toutefois se justifier que pour des 
programmes complexes, dont le pis- 
tage manuel représenterait une perte 
de temps prohibitive, ou pour quel- 
qu’un éprouvant le besoin de rentrer 
très précisément dans l'étude du 
fonctionnement de l'Apple. Il sera 
donc vraisemblablement réservé à 
des usages professionnels. 
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L'ensemble du logiciel accompagné 
de sa documentation est proposé au 
prix de 1950 F TTC. Les journées de 
formation, quant à elles, reviennent à 
1000 F TTC par jour; elles peuvent 
porter à la fois sur l'apprentissage de 
LIGHT 1 lui-même et sur la présen- 
tation de la structure et du fonction- 
nement ‘soft’ de l'Apple, dont une 
connaissance minimale est de toute 
façon requise pour tirer un meilleur 
parti du produit. 


Le prix, relativement élevé malgré 
tout, peut trouver sa justification dans 
l'intégration des routines utiles à 
l'analyse de programmes que pro- 
pose LIGHT 1 (vous disposez en un 
seul système d'outils pour la manipu- 
lation des disquettes, la recherche de 
Tokens, la comparaison de séquence 
d'octets..). En outre, la méthode de 
’pistage” conduit effectivement à 
une résolution très fine de difficultés 
dont l'étude par d’autres moyens 


pourrait constituer une tâche particu- 
lièrement fastidieuse, sinon tout à fait 
décourageante. 
Quant à l'apprentissage de l’utilisa- 
tion du produit, la documentation 
fournie peut y suffire. Le recours aux 
journées de formation dépend finale- 
ment du temps que vous entendez y 
consacrer et de votre niveau de 
connaissances en matière d'Apple 
"soft”’. 

E 





Un logiciel pas comme 
les autres 


Thinktank est très large d'idées, ce 
qui est bien la moindre des choses 
pour un logiciel de ”traitement des 
idées”. Pas besoin de classement 
préalable, inutile de structurer ce 
qu'on veut lui confier (enfin pre- 
que...). N'exagérons rien, il ne mettra 
quand même pas d'ordre dans un 
chaos originel. 


Mais il est plein de ressources : on 
peut développer ici, condenser là, 
changer la hiérarchie entre les objets 
traités, créer des niveaux supplémen- 
taires, trier alphabétiquement une 
table des matières, rechercher un 
quelconque vocable dans tout ou 
partie d'un ensemble, même particu- 
lièrement touffu (ce n’est pas tou- 
jours très rapide), provoquer des édi- 
tions ou des duplications sélectives, 
fusionner, communiquer avec des fi- 
chiers tiers. 


Mais attention ! Si Thinktank (réser- 
voir d'idées) permet tout cela, ne 
vous méprenez pas pour autant. Il 
n'est pas question ici d'intelligence 
artificielle, de démarche inductive ou 
déductive. Comme dans la célèbre 
auberge espagnole, on y trouve ce 
qu'on y apporte. Mais il est sûrement 
plus facile de l'y retrouver que dans 
ladite auberge. 


Ce n’est pas non plus un gestion- 
naire de fichiers au sens classique du 
terme. Pas de notions d'enregistre- 
ments et de champs ou d'indexation. 
Et pourtant, il permet de stocker des 
informations et de les retrouver. Ce 
n'est pas davantage un traitement de 
texte. Cependant, il possède un édi- 
teur et un générateur de formats 
d'édition. Au fond, c'est peut-être 
encore son nom de ‘réservoir 
d'idées” qui le définit le mieux. 


La documentation comporte un ”tu- 
torial” qui explique sur un exemple 
les grands principes de fonctionne- 
ment. Un manuel de référence plus 
complet lui fait suite. 
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Thinktank à l’essai 


Sur le plan de la commodité d'em- 
ploi, un guide par menus enchaînés 
rend les principales options aisément 
accessibles. Si vous avez de la mé- 
moire, vous pouvez accélérer le pro- 
cessus en tapant, à tout stade ou 
presque, la lettre initiale de la 
commande que vous voulez mettre 
en oeuvre. Et, si vous avez tout ou- 
blié (ou presque), une commande 
unique ‘’/” vous permet, de tout 
point du programme, de passer au 
menu (de même que la touche ESC 
vous fait sortir de l’option en cours). 


On pourra faire deux critiques au ni- 
veau de la commodité d'emploi. La 
première tient justement à cette 
commande ESC : elle fait générale- 
ment sortir d’une option en aban- 
donnant ce qui n’a pas été rendu dé- 
finitif. En revanche, quand vous avez 
fini de rédiger un ‘’paragraphe”, ESC 
est la sortie normale qui sauvegarde 
le travail (alors que RETURN ne 
remplit que la fonction de saut de 
ligne). La seconde concerne l'éditeur, 
peu classique (et en fait peu puis- 
sant). Par exemple, la flèche arrière 
efface le caractère qui précède le cur- 
seur, alors que la touche DEL efface 
le caractère sous le curseur. 


Un exemple d’utilisation 


Ma femme et moi manquons quel- 
que peu de mémoire (en tous cas 
pour les besoins de la cause... mais 
cela doit être également un peu vrai 
dans la vie). Aussi avons-nous confié 
à Thinktank tout un lot d'idées qui 
nous sont passées par la tête, afin de 
disposer d'un pense-bête permanent 
pour les deux mois de vacances que 
nous comptons royalement nous of- 
frir. 

Grande bridgeuse devant l'éternel, 
ma femme a d’abord ouvert une ru- 
brique BRIDGE, sans trop savoir ce 
qu'elle allait y mettre. Un peu plus 
tard, elle a ‘’fourré” dans cette rubri- 
que les noms des personnes avec 
lesquelles elle est accoutumée à brid- 
ger pendant les vacances, avec quel- 
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ques indications générales pour cha- 
cune d’entre elles. 


Elle a aussi mis dans le même pa- 
nier” quelques idées sur les compar- 
timents du jeu où elle a envie de se 
perfectionner. Ce qui l’a conduit à 
reprendre quelques noms de joueurs 
pouvant l’y aider. Pourquoi pas ? 
Thinktank s'y retrouvera toujours, 
même si une information unique fi- 
gure à plusieurs endroits. 


De mon côté, je me suis penché sur 
le problème des gens qui viendraient 
nous voir. Entre-temps d’ailleurs, j'ai 
pensé qu'il était peut-être préférable 
de mettre un peu à part la famille 
(elle comporte parfois des gens sus- 
ceptibles...). Un petit changement 
dans l’ordre des rubriques y pour- 
voit. J’ai en outre noté au passage 
une interférence avec le bridge de 
Madame : il v a des parents et amis 
qui sont aussi bridgeurs ! Certains 
avaient été pris en compte dans la 
rubrique Bridge, d’autres non. Ma 
femme a décidé de n'y garder que 
les bridgeurs habituels. De toute 
façon, Thinktank les retrouvera tous, 
si on le lui demande gentirnent. 
Notez qu'il eût été possible de dupli- 
quer dans la rubrique bridge les don- 
nées concernant le bridge dans la fa- 
mille ou chez les amis. 


Vous direz peut-être que, même si 
Thinktank y met de l’ordre, l'écran 
contenant des données aussi dispara- 
tes doit s'avérer difficile à lire. Une 
des fonctionnalités les plus originales 
du logiciel est ‘étendre / restreindre”, 
qui permet, en se plaçant à n’im- 
porte quel niveau, d'étendre tout ce 
qui concerne le niveau N—1, qui ap- 
paraît alors sur l'écran, ou au 
contraire de le restreindre, ce qui le 
fait disparaître de l'écran (mais évi- 
demment pas de la mémoire). Si 
vous voulez étendre ou restreindre 
sur plusieurs niveaux à la fois, il suffit 
de faire précéder la commande du 
nombre de niveaux voulus. La 
commande elle-même est bien choi- 
sie au plan mnémotechnique : ”’<” 











pour étendre ou élargir, >" pour 
restreindre ou réduire. 


Quant à la commande d'impression, 
elle lance sur imprimante, comme 
titre, la rubrique sur laquelle se 
trouve le curseur, et comme texte, 
tout ce qui est d’un niveau inférieur 
dans cette rubrique. Si vous vous 


placez en tête, sur le nom du ‘fi- 
chier”, vous éditez alors la totalité de 
celui-ci. 


Fac Simile de quelques éditions 


(1) - L'ensemble des titres 
(2) - Les titres de la partie BRIDGE, 


après ajout d'un chapitre 


(3) - Edition complète de la partie 
LES AMIS QUI VIENDRONT 

(4) - Table des matières de cette par- 
tie 

(5) - Une autre édition complète, 
dans une forme style rapport” 

(6) - La table des matières corres- 
pondantes = 





























1é-MAY-84 VACANCES O ETE PAGE ! HIPPOCAMPE 
PARENTS 
Verifiez s< 11s comotent venir en Juillet ou en fout, 
N'apprecieratent vas du tout gt nous ne poyuions pas Îles recevoir 
BRIOGE 
BERTHE ENFANTS 
ANATOLE GARCONS 
ÉLAUDE JV y en a 4 - Peut-etre 57 
DENIS Trouver un endrort ou 112 puissent planter leur tente. 
LU] Pas trop loin pour qu ils puissent venir facilement quand ils 
ELLE en ont envie, 
FAMILLE Fas trop pres pour qu'ils n'aient pas sans arret leurs parents 
ANATOLE 1 dur le dos. 
ERNEST 
PARENTS FILLE 
ENFANTS Viendra peut-etre avec une copine, Elles seront un peu serree 
+ EU dans le petit lit. 
XS ÉEBE À moins qu'elle ne vienne avec un "copain" ? 
— AMIS GUI VIENDRONT Voir attitude des parents,,, 
&i DENIS 
«— FRANCO] S 
EN JUILLET 
Er AOÛT 
Lui 
ELLE 
51 ELLE EST EN FORME 
nn SINON 16-MA1 -84 AMIS QUI VIENDRONT PAGE 
HI PPOCAMPE 
PARENT: 4 
- ENFANTS | PAGE 
* BRRCONS DENIS en REA ne es Léa Hate 1 
; FILLE FRANCDES à 56 à 8 #0 8 à : mé 1 
: EN JUILLET, . . . On D . 1 
EN AOÛT . . . . . FE es : 1 
LUIe ss ar . ‘ ‘ D ‘ 1 
16-MAY-84 BRIDGE PAGE 1 EURE Ten ee 1 ten PS at veu 1e Co een eat Je Rue fie El 
SD SELLE EST EM FORMES 05 455$ ae © one 6 ap de stote + Ü 
SINON : . … . … à . , . . 1 
GASTON . . , . , . . . , CC ‘ | 
BERTHE HIPPUCAMPE . . . . . , Lee . 1 
ANATOLE PARENTS . . . . . . + F0 9 ; ea 
CLAUDE 2 ENFANTS . | . ste 
DENIS GARCON : . : + os aie en del 
LU] FILLE . ; à ns 1 
ELLE 
LE TEXAS FACON JR 
LA VARIANTE DYNASTIE 
lé-ffi-3d FAMILLE 5 PAGE 1 
Lé-MAT-84 AMIS QUI UIEMDRONT PAGE 1 
1: ANATOLE 
DENIS Ne pas oublier de lee inviter 3 manger des ecrevieses, 11e 
Elle surement - prevoir bridge. adorent cela! 
Lui peut-etre, S'il wient, lus faire rencontrer CLAUDE eile surtout...) 
FRANCOIS 2 ERNEST 
EN JUILLET 2.i: PARENTS 
Passera seulement | ou 2 Jours lors de ea venue au conares de A traiter avec tous les honneurs dus à leur rang et a leur 30e 
pisciculture sur terre aride. 
Aura sans doute envie de rencontrer des passionne: de la reaion. 2.2: ENFANTS 
Demander à BERTHE, qui doit etre au courant. 2.2.1: EUX 
Si possible, organiser une reunion à la maison {s'il n° à pas Pas de probleme. Bons copains. 
plus de B personnes! Prevoir une sortie à frais partages. 
Sinon, voir s'il est possible de reseruer un coin tranquille dans 
un restaurant 
2.2,2: BEBE 
EN AOÛT Acheter avant de partir le cadeau pour la naissance. 
Ils viendront tous les deux passer une semaine Probleme: c'est Claude, Garcon ou fille? 
LUI 
Adore la peche au tout gros - retenir bateau 
ELLE 3 13-MaY-84 FAMILLE PAGE : 
SI ELLE EST EN FORME 6 
Prevoir moult visite de vieilles pierres 
SINON PAGE 
Bridge, mars cela ne sera pas drole ANATOLE, 4, ., nvre 1 
ERNEST ENTER . . . Ê . . ‘ « 1 
GASTON PARENTS , . . , . , “a à . ‘ ‘ s Ë 
Essayer de les avoir en meme temos que les FRANCOIS ENFANTS S n .: h EN 
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Pom's n° 13 


L'instruction PEEK permet la saisie 
du contenu d’une adresse en mé- 
moire à partir d'un programme 
Basic. Définissons la fonction : 

DEF FN PE(X) = PEEK(X) + 256 * 
PEEK(X+1) 

qui permet la saisie d’un nombre su- 
périeur à 255. Cette instruction devra 
figurer dans votre programme Basic. 


Cette liste de PEEKS vous permettra 
d'une part de mieux comprendre 
certains programmes Applesoît, d'au- 
tre part de simplifier l'écriture de vos 
propres programmes. 


Page zéro 

e X = FN PE(11): adresse du sous- 
programme appelé par USR 

e X = FN PE(26): valeur du poin- 
teur dans la table de formes. 
Après un DRAW ou un XDRAW, 


X — adresse de la prochaine 
forme de la table. 

e X — PEEK(32) : marge gauche de 
la fenêtre de texte 

e X = PEEK(33) : largeur de la fe- 
nêtre de texte 

e X = PEEK(34) : haut de la fenêtre 
de texte 

e X = PEEK(35) : bas de la fenêtre 
de texte 

e X = PEEK(36): position horizon- 


tale du curseur (0 <= X <= 39). 
e Y = PEEK(37): position verticale 
du curseur (0<= Y <= 23). 
Essayez par exemple l'instruction sui- 
vante : 
HOME : SPEED=100: VTAB 10: 
FOR X=0 TO 100: CALL-—868 : 
POKE 37,PEEK(37)-1: POKE 36, 
PEEK(36) + 10 — LEN(STRS$(X)) : 
PRINT X : NEXT 
ou encore : 
IF PEEK(37) = 23 THEN PRINT 
"Taper une touche pour continuer”: 
GET R$ … qui permet l'arrêt mo- 
mentané de l'affichage lorsque 
l'écran est rempli. 


e X = FN PE(38) : adresse mémoire 
du début (colonne 0) de la ligne 
courante en mode GR. 

e X = FN PE(40) : adresse mémoire 
de la colonne O de la ligne cou- 
rante en mode TEXT. L'instruc- 
tion ci-dessous permet d'afficher 
les adresses de début des lignes 1 
à 22 de la page TEXT 
HOME : FOR I=1 TO 22 : PRINT 
I" "FN PE(40) : NEXTI 


= INT(PEEK(48)/17) : code de 
la oun GR (basse résolution) : 
noir = 0, magenta = 1, bleu 
foncé = 2, pourpre = 3, vert 
foncé = 4, gris = 5, bleu = 6, 
bleu clair = 7, brun = 8, orange 
= 9, gris = 10, rose = 11, vert = 
12, jaune = 13, transparent = 14, 
blanc = 15. 


e X = PEEK(50) : indique le mode 
d'affichage texte en cours : 255 = 
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NORMAL, 63 = 
= FLASH. 


e X = FN PE(54): CSW,CSWH: 
adresse de la routine de sortie de 
caractères. 

Sans DOS : X = 65008 ($FDFO) 

DOS standard en MEV : X = 40637 

DOS relogé en carte SATURN : X = 

48961. 


e X = FN PE(56): KSW,KSWH: 
adresse de la routine d'entrée de 
caractères. 

Sans DOS : X = 64795 

DOS standard en MEV : X = 40577 

DOS relogé en carte SATURN : X = 

48966. 


INVERSE, 127 


Il peut être intéressant de déconnec- 
ter le DOS pendant une exécution 
de programme et de le reconnecter 
plus tard. Ceci peut se faire par la 
suite d'instructions suivante : 
FOR X = 0 : PD(X) = 
PEEK(54 + X): NEXT: POKE 
54,240: POKE 55,253: POKE 56,27: 
POKE 57,253: REM DECONNECTE 
LE DOS 
FOR X = 0 TO 3: POKE 54 + X, 
PD(X): NEXT: REM RECONNECTE 
LE DOS 


e X — PEEK(78) : nombre aléatoire 
entre 0 et 255. 
e X = PEEK(79) : nombre aléatoire 


entre 0 et 255. 
e X = FN PE(78) : nombre aléatoire 
entre 0 et 65365. 


e X = FN PE(103): TXTTAB: 
adresse de début du programme 
Applesoft (normalement $801). 

IF FN PE(103) <> AD OR 

PEEK(AD — 1) <> 0 THEN POKE 


104,AD/256 : POKE 103,AD — 
256*PEEK(104) : POKE AD-1,0: 
PRINT . CHR$(4) "BRUN  pro- 
gramme” 


permet à un programme Applesoft 
de se reloger lui-même plus haut en 
mémoire à partir de l'adresse AD. 


e X = FN PE(105): LOMEM: 
adresse de début de la zone des 
variables. 

e X — FN PE(107): ARYTAB: 


adresse de début de la zone des 


tableaux. 
e X = FN PE(107) - FN PE(105): 


longueur de la zone des variables 


simples. 
= FN PE(109): STREND: 


adresse de fin de la zone des ta- | 


bleaux. 
e X = FN PE(109) — FN PE(107): 
longueur de la zone des tableaux. 
e X = FN PE(111): FRETOP: 
adresse de fin de la zone libre. De 
la fin de la mémoire jusqu'ici sont 
stockées les chaînes de caractères. 


PEEKSs à gogo 
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X = EN PE(111) — FN PE'109): 
nombre d'octets de MEV libres. 

e X = FN PE(115) : HIMEM: fin de 
la zone mémoire utilisable. 
Adresse du début de stockage des 
chaînes de caractères. 


e X = FN PE(117): CURLIN: 
contient le numéro de la ligne de 
programme en cours d'exécution. 


e X = FN PE(119): OLDLIN: 
contient le numéro de la dernière 
ligne de programme exécutée. 


e X = FN PE{(121): OLDTXTPR: 
adresse RAM de l'instruction à 
exécuter — 1. 


Pour supprimer la ligne nnnn et les 
lignes précédentes dans un pro- 
gramme Applesoit, faire : 

nnnn X = FN PE(121) + 1: POKE 
103,PEEK(X): POKE 104,PEEK(X+1). 
Cela permet par exemple d'’augmen- 
ter la vitesse d'exécution du pro- 
gramme, en déplaçant le haut” du 
programme. Pour revenir aux poin- 
teurs originaux, faire POKE 103,1: 
POKE 104,8. 


e X = FN PE(123): numéro de la 
ligne DATA à lire ou en cours de 
lecture. 


e X = FN PE{125): adresse mé- 
moire du premier octet de la pro- 
chaine donnée à lire en DATA. 

e X$ — CHR$ (PEEK(129)) + 
CHR$ (PEEK(130)): nom de la 
dernière variable utilisée. Son 
adresse se trouve en 131 et 132. 


e X — FN PE(131): VARPNT: 
adresse de la dernière variable uti- 
lisée (ou du descripteur de cette 
variable). Le nom de la variable se 
trouve aux adresses 129 et 130. 

L'adresse de la variable X pourra 

être obtenue par X=0: PRINT FN 

PE(131). 


e X = FN PE(175): PRGEND: 
adresse de la fin du programme 
Applesoft. 

e X = FN PE(175) — FN PE(103) : 
longueur du programme Apple- 
soft. 

Pour sauver un programme Apple- 

soft sous forme binaire, faire : 

AF = FN PE(175): XX = AF — 

2048 : BSAVE nom du programme, 

AS$800,LXX. Le programme ainsi 

sauvé ne pourra plus être exécuté 

par un RUN ni par un BRUN. Pour 
lancer l'exécution, faire un BLOAD 
puis un RUN. 


e X = FN PE(218): ERRLIN: 


contient le numéro de ligne de 
programme où une erreur s'est 
produite. : 

e X = FN PE(220) : valeur du poin- 
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teur dans l'instruction où s’est pro- 
duite l'erreur. 


e X — PEEK(222): X sera égal au 
code d'erreur (Applesoft ou DOS). 
X = 0: ae WITHOUT FOR 


ERRO 
: LANGUAGE NOT AVAILA- 


: RANGE ERROR 

: -idem- 

: WRITE PROTECTED 

: END OF DATA 

: FILE NOT FOUND 

: VOLUME MISMATCH 

: JO ERROR 

DISK FULL 

: FILE LOCKED 

: SYNTAX ERROR (DOS) 

: NO BUFFERS AVAILABLE 

: FILE TYPE MISMATCH 

: PROGRAM TOO LARGE 

: NOT DIRECT COMMAND 

. SYNTAX ERROR 

: RETURN WITHOUT 

ÉE ERROR 

X = 42 : OUT OF DATA ERROR 

X = 53 : ILLEGAL QUANTITY 
ERROR 

X = 66 : OVERFLOW ERROR 

X = 77 : OUT OF MEMORY 
ERROR 

X = 90 : UNDEF'D STATEMENT 

X = 107 : BAD SUBSCRIPT 
ERROR 

X = 120 : REDIM'D ARRAY 
ERROR 


X = 133 : DIVISION BY ZERO 
X = 149 : ILLEGAL DIRECT 


ERROR 

X = 163 : TYPE MISMATCH 
ERROR 

X = 176 : STRING TOO LONG 
ERROR 


X = 191 : FORMULA TOO 
COMPLEX 

X = 210 : CAN'T CONTINUE 

X = 224 : UNDEF'D FUNCTION 

X = 255 : BREAK 


Exemple de sous-programme de trai- 
tement d'erreurs : 

10 POKE 758,104: POKE 759,168 : 
POKE 760, 104: POKE 761, 166 : 
POKE 762,223: POKE 763,154 : 
POKE 764, 72: POKE 765,152: 
POKE 766,72 : POKE 767,96 : REM 
ROUTINE DE TRAITEMENT D'ER- 
REURS (MANUEL APPLESOFT) 

20 ONERR GOTO 30000 

30000 CALL 758: ER = 
PEEK(222) : LN = FN PE(218) 
30010 PRINT'ERREUR NUMERO 
ER” A LA LIGNE ”LN 

30030 IF ER<1 or ER>15 THEN 
PRINT ‘programme interrompu” : 
END 


x 


NOR DONNEES 20 & ND 
DoupwNnO.. im 


XX XX XX XX NE DE DE DE NE DE DE DC 


OU UUN UN UNUUNUNUNNUH 


30040 

30050 IF ER = 4 THEN PRINT 
"Disquette protégée en écriture - 
changer de disquette ” :: GET RS: 
PRINT CHR$(13) + CHR$(4) ”’com- 
mande DOS” : GOTO 30100 


30060 … 
30070 IF ER = 9 THEN PRINT 





"Disquette er - changer de dis- 
quette”;: GET R$ : .…. GOTO 30100 
30080 …. 

30100 RESUME: REM retour à 

l'instruction où l'erreur a eu lieu 

e X — PEEK(223) : valeur du poin- 
teur de pile avant l'erreur. 

e X = FN PE(224): coordonnée 
horizontale du curseur HGR. 

e X — PEEK(226): position verti- 
cale du curseur HGR. 

© X = PEEK(228): code couleur 
HGR : noir = 0, vert = 42, violet 
= 85, blanc = 127, noir — 128, 
orange = 170, bleu = 213, blanc 
= 255. 


X = PEEK(230) : code de la der- 

nière page HGR appelée. Pour la 

ee 1, X = 32. Pour la page 2, 
= 64 


Pour que les instructions HGR agis- 
sent sur la page haute résolution non 


affichée, faire POKE 23096 — 
PEEK(230). 
@e X = PEEK(231): valeur de 


SCALE (entre 1 et 255). 


e X = FN PE(232): adresse de 
début de la table de formes. 

Exemple d'utilisation : IF FN PE(232) 

<> XXXXX THEN PRINT CHR$(4) 

"BLOAD Table de formes, AXXXXX"” 

e X = PEEK(234): compteur de 
collision HGR. 

e X = PEEK(241): 256 — X = vi- 
tesse d'affichage écran. Utilisé par 
"SPEED=”, 

e X = PEEK(249): 
(entre 0 et 255). 
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@e X = FN PE(977): si X <> 
40383, le DOS n'est pas présent 
en MEV. 


IOB = PEEK(987) x 256 + 232: 
adresse de la table des en- 
trées/sorties utilisée par RWTS. 


@e X = FN PE(1008): adresse du 
sous-programme gérant les inter- 
ruptions BRK. 


e X = FN PE(1010) : adresse de re- 
tour au langage en cours d’utilisa- 
tion. 

e X = FN PE(1014): adresse d’un 
sous- La appelé par & 
(Ampersand). 

e X = PEN PE(1017) : adresse d’un 
sous-programme appelé par 
CTRL-Y en mode moniteur. 


Pages texte ($400-$7FF) 


e CA = PEEK(1024 + X + 128xY 
— 984xINT(Y/8)) 

CA = code ASCII du caractère se 
trouvant au point de coordonnées X 
et Y de l'écran texte (0 <= X <= 
39 et 0 <= Y <= 23). 

Pour la page 2 de texte (non accessi- 
ble normalement en Applesoft), rem- 
placer 1024 par 2048. 


valeur de ROT 


8 groupes d'adresses sont réservées 
à chacun des slots : 

: $478-$47F (1144-1151) 

: $4F8-$4FF (1272-1279) 

: $578-$57F (1400-1407) 

: $5F8-$5FF (1528-1535) 

: $678-$67F (1656-1663) 

: $6F8-$6FF (1784-1791) 

: $778-$77F (1912-1919) 

: $7F8-$7FF (2040-2047) 


Vous pourrez y trouver certaines in- 
dications concernant les périphéri- 
ques, par exemple : 

= PEEK(1144) (soit $478): nu 
méro de la dernière piste lue ou 
écrite. 
X = INT(PEEK(1528)/16) (soit 
$5F8) : numéro du slot contenant le 
contrôleur qui a initialisé le DOS en 
activité. 
Page 8 


Un programme Applesoft commence 


OO P ON HO 


normalement à l'adresse  $801 

(2049). 

e AD = FN PE(2049) : adresse de 
la seconde ligne du programme 
Applesoft ; 

e NUM = FN PE(2051): numéro 


de ligne de la première ligne Ap- 
plesoft. 


DOS 48K ($9600-$BFFF) 

Toutes les adresses sont données 
pour un système 48K. Pour 32K ou 
16K,  retrancher respectivement 
16384 et 32768. Pour un DOS re- 
logé en carte langage ou extension, 
ces adresses ne sont plus valables. 


e X = PEEK(40185) : X=0 ou X > 
2 pour le lecteur 1; X=2 pour le 
lecteur 2. 

e X = FN PE(40192) — 595 x N 
+38 : adresse du Nème tampon 
du DOS. 


e X = PEEK(43603) : adresse de la 
routine de sortie de caractères (cf 
CSW,CSWH) 
X = PEEK(43604) : adresse de la 
routine d'entrée de caractères (cf 
KSWH,KSWL) 


e X = PEEK(43607): nombre de 
tampons (buffers) du DOS. Fixé 
par MAXFILES. 


e X = FN PE(43616) : longueur du 
dernier programme binaire chargé 
en MEV. 

e X = PEEK(43622): 

volume actuel. 

X = PEEK(43624): numéro de 

lecteur actuel. Pour permuter 


entre deux lecteurs, faire un 
POKE 43624,3-PEEK(43624). 


numéro de 


e X = PEEK(43626): numéro de 
port actuel. 
e X = PEEK(43628) : longueur du 


dernier enregistrement. 
e X = PEEK(43630) : 
dernier enregistrement. 
X = PEEK(43632) : 
l’octet actuel. 


numéro du 


numéro de 
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e X = FN PE(43634): adresse de 
début du dernier programme bi- 
naire chargé en MEV. 


BLOCK IOB 


IOB (INPUT/OUPUT BLOCK) : uti- 

lisé par le sous-programme RWTS 

(Read Write Track Sector) pour l’ac- 

cès à un secteur de la disquette. 

L'adresse de la table IOB utilisée par 

le DOS est donnée par : 

e I0OB = 256xPEEK(FNPE(996)) + 
PEEK(FNPE(999)) 

Pour un DOS standard 48K, I0OB = 

47080 ($B7E8). 

DOS relogé en carte SATURN : IOB 

= 49128. 


Les informations suivantes peuvent 
être obtenues par un PEEK à une 
adresse de l'IOB : 

= PEEK(IOB) : type de l'IOB, 
égal à 1 pour DOS sur disquette. 
X = INT(PEEK(IOB + 1)/16): 
numéro du slot dans lequel se 
trouve l'interface DISK à utiliser. 
X = PEEK(IOB + 2): numéro du 
lecteur de disque (1 ou 2) à utili- 


ser. 

X = PEEK(IOB + 3): 
volume attendu. 

X = PEEK(IOB + 4) : numéro de 
la dernière piste lue (0 - 

X = PEEK(IOB + 5): numéro du 
dernier secteur lu (0 - 15 en DOS 
3.3, 0 - 12 en DOS 3.2). 

X = FN PE(IOB + 6) : adresse de 
la table des caractéristiques de la 
mémoire de masse utilisée. 

e X = FN PE(IOB + 8) : adresse du 
dernier tampon du DOS utilisé. 


e X = PEEK(IOB + 12) 


numéro de 


X = 0: mode positionnement de la 
tête. 

X = 1: mode lecture 

X = 2: mode écriture 


X = 4: mode formatage 


e X = PEEK(IOB + 13): contient le 
code d’erreur lors d’une opération 
écriture ou lecture : 

X = 0: pas d'erreur 

X = 16: disquette protégée en écri- 

ture ou défectueuse. 

X = 32: erreur de volume. Ne cor- 

respond pas au volume attendu en 

IOB + 3. 

X = 64: erreur de lecteur d’origine 

indéfinie. 

X = 128: erreur de lecture. Emis 

après 48 essais successifs infructueux. 

e X = PEEK(IOB + 14): numéro 
de volume de la dernière disquette 
lue. 

= INT(PEEK(IOB + 15)/16): 
numéro du dernier slot utilisé. 

e X = PEEK(IOB + 16): numéro 
du dernier lecteur utilisé (0 ou 1). 


DOS relogé sur la carte d’exten- 
sion Saturn 32K 


e X = FN PE(48992) : longueur du 
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dernier programme binaire chargé 
en MEV. 

e X = FN PE(49010): adresse du 
dernier programme binaire chargé 
en MEV. 


Adresses $CO000-CFFF 


e X = PEEK(49152) (ou —16384) : 
saisie au vol d'un caractère au cla- 
vier. Si X > 127, une touche à 
été enfoncée et X — 128 = code 
ASCII du caractère frappé au cla- 
vier. 

L'instruction ci-dessous permet par 

exemple d'interrompre temporaire- 

ment l'affichage : 

IF PEEK(—-16384) > 127 THEN 

POKE —16368,0: WAIT —16384, 

128 : POKE —-16368,0 


e X = PEEK(49184) (soit —16352) 
active la sortie magnétophone. 
Permet la sortie sur un amplifica- 
teur. Un deuxième PEEK à la 
même adresse désactive la sortie. 

e X = PEEK(49200) 
+PEEK(49200) (soit —16336) : 
fait cliqueter le haut-parleur. Peut 


être remplacé par un POKE 
49200, PEEK(49200). 
Pour obtenir un TOP”, on pourra 
utiliser : 
FOR I = 49200 TO 49230: X — 
PEERK(I) : NEXT 


Pour simuler le bruit d’une bille qui 

rebondit : 

FOR N = 0 TO 30 : FOR I = 49200 

TO 49230 - N: X = PEEK(): 

NEXT IN 

e X = PEEK(49216) (ou —-16320) : 
impulsion utilitaire. La broche 5 
du connecteur de jeu chute de +5 
volts à O volts pendant 0,98 mi- 
crosecondes, puis revient à +5 
volts. 


X = PEEK(49232) (ou PR 

sélection du mode graphiqu 

X = PEEK(49233) (ou 16308) : 

sélection du mode TEXT. 

e X = PEEK(49234) (ou —16302) : 
sélection du mode graphique non 
mixte (écran entier). 

e X = PEEK(49235) (ou —-16301) : 
sélection du mode graphique 
mixte (4 lignes de texte). 

e X = PEEK(49236) (ou —16300) : 
sélection du mode graphique 
(HGR 1). 

e X = PEEK(49237) (ou —16299) : 

sélection du mode graphique 


(HGR 2). 

X = PEEK(49238) (ou —16298) : 

sélection du mode graphique 

basse résolution. 

X = PEEK(49239) (ou —16297) : 

sélection du mode graphique 

haute résolution (HGR ou HGR2). 

e X = PEEK(49232) + PEEK 
(49234) + PEEK(49236) + PEEK 
(49239) : passage en mode HGR 
pleine page sans effacement. 

e X = PEEK(49232) + PEEK 


(49234) + PEEK(49237) + PEEK 
(49239) : passage en mode HGR2 
sans effacement. 


X — PEEK(49240) (ou —16296) : 
sortie tout ou rien numéro 0 OFF. 
e X — PEEK(49241) (ou —16295): 
sortie tout ou rien numéro 0 ON. 
e X = PEEK(49242) (ou —-16294) : 
sortie tout ou rien numéro 1 OFF. 
e X — PEEK(49243) (ou —16293) : 
sortie tout ou rien numéro 1 ON. 
e X — PEEK(49244) (ou —16292) : 
sortie tout ou rien numéro 2 OFF. 
e X = PEEK(49245) (ou —-16291): 
sortie tout ou rien numéro 2 ON. 
e X = PEEK(49246) (ou —16290) : 
sortie tout ou rien numéro 3 OFF. 
X = PEEK(49247) (ou —16289) : 
sortie tout ou rien numéro 3 ON. 


— PEEK(49248) (soit —16288) 
active l'entrée magnétophone. Un 
deuxième PEEK à cette adresse 
déconnecte le magnétophone en 


lecture. 

X = PEEK(49249) (ou —16287) : 
teste le bouton de la manette nu- 
méro 0. Si X>127, le bouton a 
été pressé. 

Il n’est effectivement prévu que 3 en- 
trées numériques sur lesquelles sont 
branchés les boutons poussoirs. On 
peut avoir une 4ème entrée en utili- 
sant l'entrée magnétophone... 


e X — PEEK(49250) (ou —16286) : 
teste 4 bouton de la manette nu- 
méro 

e X = PÉEK(49251) (ou —16285) : 

teste le bouton de la manette nu- 

méro 2. 

X — PEEK(49252) (ou —16284) : 

lecture de la manette numéro 0. 

e X = PEEK(49253) (ou —-16283) : 
lecture de la manette 1. 

e X = PEEK(49254) (ou —16282) : 
lecture de la manette 2 


e X = PEEK(49255) (ou —16281) : 
lecture de la manette 5. 


Ces entrées analogiques peuvent être 
utilisées pour des accessoires autres 
que les manettes. 


Les adresses 49256 à 49263 jouent 
un rôle identique à celui des adresses 
49248-49255. 


e X = PEEK(49264) (ou —16272) : 
remise à zéro des entrées analogi- 
ques. Les valeurs des adresses 
49282 à 49255 passent à une va- 
leur supérieure à 127. 


FOR S = 0 TO 7 : PRINT 
PEEK(49386 + 256x%S) + 
PEEK(49388 + 256%S) + 
PEEK(49390 + 256%S) : NEXT 
fournit un nombre caractéristique de 
l'interface présente dans le slot S : 
0 : carte RAM STATIQUE LEGEND 
14 : carte CPS MULTIFUNCTION 
113 : carte langage APPLE 
350: programmateur 
Micro-Périph 
376: interface imprimante (dépend 
de l'interface) 


d'Eproms 
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497 : interface parallèle MID P2 
519 : carte SATURN 32K 

583 : interface DISK DOS 3.3 
632 : interface DISK DOS 3.2 


On peut aussi lire à cet égard ‘’Ana- 

lyse du contenu des slots” dans le 

Porm's 1. 

e X = PEEK(49384) (ou —16152): 
arrête le moteur du lecteur. 

e X = PEEK(49385) (ou —16151): 
démarre le moteur du lecteur. 


Gestion d’une carte d’extension 
MEV 


Les adresses ci-dessous sont données 
pour une carte insérée dans le slot S 
(0 <= S <= 7). 

e X = PEEK(49280 + 16xS) (soit 
—16256 + 16%xS): connecte la 
carte d'extension mémoire (BLOC 
2) en mode lecture. Protection en 
écriture. 


e X = PEEK(49281 + 16%S) + 
PEEK(49281 + 16%S) (soit 
—16255 + 16xS): déconnecte le 
BLOC 2 en mode lecture. Dépro- 
tège en écriture. La lecture de la 


ROM est possible. 


e X — PEEK(49282 + 16%S) (soit 
—16254 + 16%S) : BLOC 2 de la 
carte déconnecté en lecture, pro- 
tection en écriture. C'est-à-dire re- 
tour au langage en ROM. 


X = PEEK(49283 + 16%S) + 
PEEK(49283 +  16%S) (soit 
—16253 + 16%S) : le BLOC 2 de 
la carte d'extension est accessible 
‘en lecture ET en écriture. 


Les 12K du BLOC 1 sont accessibles 

de la même facon par les PEEKS sui- 

vants : 

e X = PEFK(49288 + 16%S) (soit 
—16248 + 16%S) 

e X — PEEK(49289 + 16%S) (soit 
—16247 + 16%S) 

e X — PEEK(49290 + 16xS) (soit 
—16246 + 16%S) 

@e X = PEEK(49291 + 16xS) (soit 
—16245 + 16%S) 


Pour une carte d'extension 32K ou 
plus, la 2ème tranche de 16K est ac- 
cessible par les PEEKSs indiqués ci- 


dessous : 
e BLOC 2: PEEK 


utiliser X — 


(49284 + 16%S) à (49287 + 
16%S). 

e BLOC 1: utiliser X — PEEK 
(49292 + 16%S) à (49295 + 
16%S). 


ROM 


e X — PEEK(64255) (soit —1281) 
X = 0 si c'est la ROM AUTOSTART, 
X = 1 avec l’ancien moniteur. 


NDLR: une certaine redondance 
existe inévitablement entre les PEEKSs 
à gogo et les POKESs à gogo (Pom's 
11). Certains sont symétriques, tels 
par exemple ceux qui concernent la 
gestion de l'écran (de 32 à 35). 
D'autres, tels ceux des zones de 
49232 à 49249, jouent un rôle iden- 
tique. Nous les avons gardés dans 
cet article, car il n'est pas évident à 
priori (sauf pour les champions) que 
ces PEEKSs et POKESs sont de nature 
similaire. Remarquons par ailleurs 
que les PEEKSs relatifs au DOS 83.3, 
comme les POKEs du même genre, 
n'ont aucune raison de fonctionner 
pareillement avec le ProDOS. = 





Le lecteur Micro-Expansion 1 Méga 


Vincent Plassard 


Depuis un an environ, on parlait de 
ce fameux disque 1 Méga, et j'atten- 
dais avec impatience cette nouveauté 
qui allait désormais agrandir considé- 
rablement la mémoire de masse de 
mon Apple //e. Enfin éliminées, 
toutes ces manipulations de disquet- 
tes 140K, trop petites pour les fi- 
chiers un peu importants. 


Le mardi 6 mars 1984, j'ai acheté un 
ensemble lecteur Micro-Expansion 
G.502 chez un distributeur Apple 
connu de tous les Lyonnais. Il venait 
juste de le recevoir et je suis reparti 
le soir même avec mon appareil. Il 
m'a semblé intéressant de faire part 
aux lecteurs de Pom's de mes pre- 
mières impressions d'utilisateur et de 
passionné d'informatique. 


Le matériel 


L'ensemble lecteur G.502 est livré 
dans un carton assez impressionnant, 
le boîtier étant entouré de plaques 
de mousse protégeant efficacement 
le matériel pendant le transport. L'in- 
ventaire du colis est le suivant : 


e 1 boîtier intégrant 1 ou 2 lecteurs 
(selon le type choisi). Le boîtier 
est en bonne tôle solide, à 13 kg 
l'ensemble (plus de 3 Apple /{c 
……). La face avant est agréable et 
les voyants permettent de visuali- 
ser le fonctionnement des lecteurs. 

e 1 alimentation (de bonne qualité). 

e 1 ventilateur. 





e 1 carte Interface/Contrôleur qui 
assure la liaison entre l'Apple et le 
boîtier. Cette carte est impression- 
nante, mais s'intègre parfaitement. 
Pour les connaisseurs, elle est vrai- 
ment ”chouette”. 
1 disquette de démarrage (140 K). 
Cette disquette permet d'initialiser 
et de formater les disquettes 1 
Méga sous le système d’exploita- 
tion que vous utiliserez. Il existe 
actuellement des disquettes de dé- 
marrage pour DOS 3.3, 
MEM/DOS, Pascal et CP/M. Ces 
disquettes proposent différents uti- 
litaires propres à l’utilisation des 
lecteurs 1 Méga. 
1 manuel d'utilisation du système. 
À la livraison, on m'a remis un 
manuel qui me semblait un peu 
confus; j'en ai fait la remarque à 
mon revendeur. Je viens de rece- 
voir une nouvelle documentation 
beaucoup plus explicite. Il est im- 
portant de lire ce fascicule pour 
éviter des erreurs de manipulation 
qui pourraient être préjudiciables. 
® 1 cordon secteur (alimentation 
220V). La prise de terre est obli- 
gatoire (ne pas l'oublier). 
© 1 nappe reliant l'interface au bof- 
tier. Un détrompeur propre à cha- 
que connecteur évite tout risque 
d’erreur dans les branchements. 


Caractéristiques 
techniques 


Caractéristiques générales 


e Nbre de lecteurs par unité : 1 pour 
le modèle G.501, 2 pour le mo- 
dèle G.502 

© Nbre de têtes de lecture: 2 par 

lecteur 

Nbre de pistes par face : 77 

Nbre de pistes total : 154 

Nbre de secteurs par piste : 26 

Nbre d’octets par secteur : 256 

Vitesse de rotation : 360 t/m 

Temps de top moteur (maxi): 1 

sec. 


Caractéristiques 
d’Enregistrement 


e Capacité non formatée: 1.604 
K.octets 

e Capacité formatée : 1.025 K.octets 

e Temps d'accès piste à piste : 5 ms 

e Temps d'accès moyen : 91 ms 

e Temps d'accès maximum: 395 


ms 

e Temps de stabilisation : 15 ms 

e Temps moyen d'attente : 17 ms 

@ Vitesse de transfert: 500 
K.bits/sec. 


Dimensions du boîtier: hauteur 
15 cm, largeur 26 cm, profondeur 36 
cm. 


Supports magnétiques: type 
BASF réf. 2 HD 71/053 ou Micro- 
Expansion réf. DQ 500 H. 


MTBF (mean time between failu- 
res) : 8.000 heures. 
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Mes impressions 
d'utilisateur 


Maintenant que vous connaissez un 
peu mieux l’ensemble G.501/G.502, 
c'est-à-dire le matériel et ses caracté- 
risques, je vous livre mes impressions 
d'utilisateur. C'était d’ailleurs l’objec- 
tif que je m'étais fixé en me mettant 
à ‘’pianoter” cet article. 


J'ai travaillé avec les 1Mo sous DOS 
3.3 et sous MEM/DOS. La première 
remarque que je peux faire, c'est que 
les 1Mo sont beaucoup plus adé- 
quats sous MEM/DOS qu'en DOS 
3.3. Le ProDOS aura certainement 
une meilleure efficacité avec ces lec- 
teurs que le DOS 3.3. 


Système DOS 3.3 


Il faut savoir tout d’abord que, sur 
une disquette 1Mo, on met 7 dis- 
quettes 140K. L'équivalent d’une 
disquette 140K s’appellera VOLUME 
avec le système 1Mo. C'est déjà le 
cas avec les disquettes 140K, mais 
on ne s'y sert en général pas des nu- 
méros de volume. ATTENTION, le 
numero de volume qui était utilisé 
avec les disquettes 140K n'est pas 
reconnu par le système 1Mo. 


Une disquette 1Mo contient 7 catalo- 
gues (D1...D7). Pour lire un pro- 
gramme ou un fichier qui se trouve 
sur le troisième volume de la dis- 
quette 1Mo, vous devrez taper 
"LOAD nomiic,Ss,D3”. En résumé, 
on peut considérer qu'avec un en- 
semble lecteur 1Mo, nous avons : 


— 7 drives 140K (D1...D7) avec le 
modèle G.501; 
— 14 drives 140K (D1..D14) avec le 
modèle G.502. 


Le principal avantage du système est 
d'éviter la manipulation de disquettes 
et d’avoir en permanence l'accès à 7 
ou 14 drives selon le modèle. 


Après avoir booté la disquette de dé- 
marrage 140K, à la mise sous ten- 
sion de l'Apple, le système est utilisa- 
ble et vous voyez apparaître à l'écran 
le menu des utilitaires, à savoir : 


Formatage physique disquette 1Mo 
Initialisation des Volumes 

Tranfert des Programmes (le FID) 
Copie d'un Volume (c'est COPYA) 
Catalogue des Volumes 1Mo 
Copie rapide du 1Mo sur un 1Mo 
Retour au Basic 


La copie rapide du 1Mo sur 1Mo est 
vraiment très rapide : 1°20” pour re- 
copier l'équivalent de 7 disquettes ! 


En cours d'utilisation, les temps de 
transfert entre la disquette 1Mo et la 
mémoire de l'Apple sont semblables 
à ceux du DOS 3.3. 


Dès la mise sous tension de l’ensem- 
ble lecteur 1Mo, le ventilateur de re- 
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froidissement se met à tourner. Je ne 
peux pas dire qu'il soit vraiment 
bruyant mais ce ’ronron” permanent 
est pénible à supporter. 


Dans l'immédiat, les logiciels tels que 
Visicalc, Multiplan ou Apple Writer 
ne sont pas utilisables sur disquettes 
1Mo, et je le regrette beaucoup. 
Sinon, aucun problème d'utilisation 
n’est à noter sous DOS 3.8. 


Système MEM/DOS 


Je ne sais pas si beaucoup d’entre 
vous connaissent et utilisent le 
MEM/DOS, mais je l’emploie pour 
ma part très souvent, car il simplifie 
considérablement la programmation 
par l'usage de masques et grâce à sa 
manipulation des fichiers. Depuis que 
j'ai découvert MEM/DOS, je ne 
comprends pas comment j'ai pu 
m'en passer antérieurement. Par 
contre, pour des fichiers importants, 
une disquette 140K est rapidement 
saturée; faire une recherche ou un tri 
sur plusieurs disquettes devient une 
véritable acrobatie, voire une opéra- 
tion pratiquement irréalisable. 


Actuellement, avec les 1Mo, le pro- 
blème est résolu. Vous disposez réel- 
lement d'un méga en ligne par dis- 
quette, contrairement à la disquette 
1Mo sous DOS 3.3 qui compte 1Mo 
fractionné en 7 volumes. Vous saisis- 
sez les perspectives qui s'ouvrent au- 
jourd’hui aux utilisateurs. Jusqu'’alors, 
pour résoudre un tel problème, un 
disque dur était indispensable, sans 
parler du backup nécessaire pour la 
sauvegarde. 


Les utilitaires sous MEM/DOS sont 
complets et sans problème apparent. 
J'ai observé une grande vitesse 
d'exécution, phénomène qu'on ne 
constate pas sous DOS 3.3. 


En résumé, avec un Apple //e, une 
carte 80 colonnes étendue, une carte 
MEM/DOS, et cet ensemble lecteur, 
vous pouvez réaliser efficacement des 
applications professionnelles qui ne 
relèvent plus d’un bricolage informa- 
tique. Cette configuration est vrai- 
ment performante pour une entre- 
prise, pour un établissement scolaire, 
pour qui doit traiter la paye, la 
comptabilité, les plannings, la ges- 
tion, les fichiers clients, les fichiers 
élèves, tous les fichiers. 


Conclusion 


Ce n'est pas après deux semaines 
d'utilisation que je peux prétendre 
connaître à fond ce nouveau matériel 
mais, d'emblée, je peux dire en toute 
simplicité que cet ensemble lecteur 
1Mo est bien conçu et qu'il corres- 
pond à un besoin réel. L'utilisateur 
moyen à désormais la possibilité 
d'accéder à une mémoire de masse 
très acceptable et à une possibilité de 
sauvegarde adéquate. 


Le marché du disque dur 5Mo risque 
d’être touché par cette nouveauté. 


Le prix 

Hélas, le prix n'est pas à la portée de 
toutes les bourses. 13.000 F TTC 
pour le modèle G.501, 25.000 F 
pour le G.502. La disquette 1Mo re- 
vient à 130 F. Pour des applications 
concrètes et utilitaires, ce prix sera fa- 
cilement considéré comme un inves- 
tissement rentable et indispensable. 
Au niveau de l'amateur, il est certai- 
nement prohibitif. 


Formulons l'espoir de voir un jour les 
prix baisser, mais nous payons le prix 
du sérieux et de la technicité 
(NDLR : .… et d'un marché pour le 
moment hexagonal.). 


Bravo pour cette réalisation fran- 
çaise ! Les 2Mo m'ont mordu... 


Pour la petite histoire, chacun sait 
que le week-end est propice pour se 
consacrer à fond à de tels essais. Ma 
femme avait eu la délicatesse et la 
gentillesse de me laisser seul dans 
mes expériences. Quelle ne fut pas 
sa surprise, en rentrant le soir, de me 
retrouver avec un énorme panse- 
ment autour de la main gauche. 

Non, rassurez-vous, les 2Mos ne 
m'avaient pas “véritablement” 
mordu, c'était simplement une gros- 
sière erreur de cuisinier étourdi … 
Pour ma punition, la brûlure réduit 
dans l'immédiat ma vitesse de 
frappe, mais heureusement, je récu- 
père facilement avec mes 2Mo le 
temps que j'aurais perdu en manipu- 
lation de disquettes … 


DR 


En conclusion, les 2Mos, c’est TER- 
RIBLE. 


NDLR: nous devons apporter un 
bémol à cette étude enthousiaste, où 
l’on reconnaît l'esprit dynamique de 
l'animateur du club Info-Maniaques 
(62 avenue Paul Santy - 69008 
Lyon). Nous n'avons pas encore eu 
l'occasion à Pom's de tester ce lec- 
teur et réservons donc notre opinion 
en attendant. Dès que Micro-Expan- 
sion nous aura confié un matériel, 
nous vous apporterons notre opinion 
en complément. 

Rappelons également, pour une 
meilleure analyse du marché et une 
meilleure information des utilisateurs 
intéressés par ce type de mémoire de 
masse, que la société LE.F. (Paris) 
commercialise depuis quelques 
années des lecteurs de disquettes 
souples 1Mo, d'un prix relativement 
moins élevé mais aussi d'une techno- 
logie moins “lourde” (pas d’alimenta- 
tion autonome, pas de ventilation...) ; 
par contre, la fiabilité de ce lecteur 
semble inférieure. 

Vous pourrez consulter une présenta- 
tion de ces autres lecteurs dans l'arti- 
cle consacré aux Mémoires de Masse 
dans le Pom's 4 ou le Recueil No 1. 
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Réduction d’image HGR 


Patrice Neveu 


Pom's vous a souvent proposé des 
programmes pour gérer les pages 
graphiques : inversion des couleurs, 
transferts, opérations logiques entre 
plusieurs pages, stroboscopie, etc. 
Aujourd’hui, je vous offre un ensem- 
ble de routines qui permettent de ré- 
duire une page graphique au quart 
de sa taille normale. 


Le programme Basic de démonstra- 
tion Réduction au 1/4 prend une 
image stockée sur disquette et la ré- 
duit au quart de sa taille en haut à 
gauche de l'écran. Il utilise les routi- 
nes en assembleur suivantes : 


e Réduit Hauteur qui réduit de 
moitié la hauteur de l’image: 

e Réduit Largeur fait de même, 
avec la largeur bien sûr: 

e Moitié 1 — Moitié 2 transfère la 
demi-partie gauche de l'image à 
droite; 

e Copyleft agit sur les demi-parties 
hautes et basses; 








ple transfert entre les 2 pages: 
e HGR2+HGR2 — HGR super- 
pose les 2 pages sur la première. 


Hormis les 2 dernières routines qui 
sont très simples, quelques mots 
d'explication pour les autres : 


— Copyleft est une routine de Jean- 
François Duvivier parue dans le nu- 
méro 3 de Pom's; elle est utilisée ici 
pour inverser les parties hautes et 
basses d’un écran; 


— Réduit Hauteur balaye une ligne 
sur deux de l’écran 1, par appel à 
HPOSN (module de l'interpréteur 
Applesoft en $F411 renvoyant 
l'adresse de base d’une ligne graphi- 
que) et stocke cette ligne sur l'écran 


— Réduit Largeur est le module le 
plus compliqué de l’ensemble car il 
s’agit de conserver un pixel sur deux, 
en travaillant sur des octets où seuls 
7 bits nous intéressent et sont affi- 
chés en ordre inverse : 


points (pixels) soit 20x2x7. Exami- 
nons un groupe de 2x7 pixels et 
codons-les individuellement : 

Ecran : ABCDEFGHIJKLMN 

Les octets équivalents sont au nom- 
bre de 2 et leurs bits sont : 

Octets : *xGFEDCBA#NMLKJIH 
avec * et # les bits de couleur 
Regroupons arbitrairement ces deux 
octets en un seul avec les bits : 
Octet : x«NLJHFDB 

Cet octet apparaît graphiquement 
comme 7 pixels : 

Ecran : BDFHILN 

et l'objectif de ne conserver qu'un 
seul pixel sur 2 est donc réalisé. 


Le programme Réduction infinie 
permet de dupliquer une image en 
quatre plus petites, ou de juxtaposer 
4 images différentes sur un même 
écran graphique. 


Bien entendu, la notion de couleur 
n'est pas conservée ! Pour éviter des 
pertes trop sensibles de définition, il 
est conseillé d’avoir une image origi- 
nale en HCOLOR=3 (blanc). D'au- 
tre part, rien n'empêche de recom- 
mencer la réduction au quart une 
nouvelle fois; on peut ainsi obtenir 
des réductions au 1/16. Difficile d’al- 





e HGR2 — HGR effectue un sim- Une ligne graphique comporte 280 ler plus loin ! 5 
30 DBS = DS + BRUN‘ 
Programme REDUCTION au 1/4 De be AR Oa Le 
10 HOME 36 DSS = DS + "BSAVE" 
100 INPUT ‘NOM DE L’IMAGE A REDUIRE : “ | 40 INVERSE : PRINT ‘* DEMONSTRATION DE R 
:11s EDUCTION D’IMAGE HGR ‘: NORMAL 
140 INPUT “NOM DE L’IMAGE FINALE : “:NF | SO PRINT : PRINT “ALEXANDRE AVRANE O5/M 
s AI/1S84 POUR POM’S" 
330  HGR2 55 PRINT : PRINT : PRINT “REDUCTION D’'U 
1000 HGR NE SEULE IMAGE OU DE QUATREIMAGES 
1005 REM *x*x* GRAPHIQUE TOTAL »»x DIFFERENTES (1/4)? “;: GET AS 
1010 POKE - 16302,0 56 IF AS = "4" THEN 500 
1015 REM 57 IF AS « “1 THEN RUN 
1020 PRINT CHRS (4)'"BLOAD"I1S",A4S2000" | 99 REM. **x UNE SEULE IMAGE ##x» 
1040 PRINT CHRS (4)'*BRUN REDUIT LARGEU | 100 PRINT : PRINT : INPUT “NOM DE L’1MA 
R.0BJ" GE: “:1is 
1050 POKE - 16300,0 110 HGR2 : HGR : POKE 49234,0 
1060 PRINT CHRS (4)'BRUN HGRZ->HGR.OBJ | 120 PRINT DLSI1S",AS2000" 
à 125 GOSUB 1000 
1065 REM x**x* NETTOIE PAGE 2 «x 130 GOSUB 2000 
1070 HGR2 140 PRINT DBS'"HGR+HGR2->HGRZ.O0BJ" 
1075 REM #**x BRANCHE PAGE 1 ### 150 POKE 49237,0 
1080 POKE 230,32 160 AS = ‘“2000<4000.5FFF": GOSUB 4000 
1085  REM 170 GOSUB 3000 
1090 PRINT CHRS (4)'"BRUN REDUIT HAUTEU | 180 PRINT DBS'"HGR+HGR2Z->HGR2.0BJ" 
R.OBJ" 190 POKE 49237,0 
1200 IF NFS < > “‘* THEN PRINT CHRS ( | 200 HOME : GET as 
4)" BSAVE"NFS",AS4000,LS1FF8" 210 TEXT : HOME : PRINT “ON REDUIT ENCO 
1210 HOME : GET AS: TEXT RE? (O/N) “:: GET AS 
220 IF AS = ‘“O"“ THEN PRINT : POKE 4923 
S,O:AS = ‘"2000<4000.5FFF": GOSUB 
| 4000: HGRZ : GOTO 125 
Programme REDUCTION INFINIE 225 GOTO 300 
499 REM «xx 4 IMAGES DIFFERENTES *#+ 
1 REM ##* REDUCTION INFINIE *xx S00 PRINT : PRINT : INPUT ‘NOM DE L’IMA 
10 TEXT : HOME : SPEÉED= 255: NOTRACE GE 1: “:11S 
11 ONERR GOTO 990 505 HGR2 : HGR : POKE 49234,0 
12 LOMENM: 32768 510 PRINT DLS11S“,AS2000" 
20 DS = CHRS (4) 520 GOSUB 1000 
AÉRIENNES 
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525 AS = ‘“6000<4000.SFFF'": GOSUB 4000 300 PRINT : PRINT : PRINT ‘SAUVEGARDE D 
527 POKE 49236,0: POKE 49233,0 E L’IMAGE RÉDUITE‘": INPUT “NOM (R 
S30 PRINT : INPUT ‘NOM DE L'’IMAGE 2: ‘: ETURN SINON): ‘“;:125S 
125 910 IF 12S < > ‘'‘' THEN PRINT DSSI2S*, 
535 POKE 49232,0 AS4000,LS1FF8" 
540 PRINT DLSI2S",AS2000" 920 PRINT : PRINT ‘ON RECOMMENCE?Y (O/N) 
550 GOSUB 1000 “+1: GET AS: IF AS = ‘“O"* THEN RU 
580 GOSUB 2000 N 
585 4S = ‘“4000<6000.7FFF'": GOSUB 4000 930 END 
390 PRINT DBS'"HGR+HGR2->HGR2.0BJ" 330 POKE 216,0: TEXT : HOME : RESUME 
600 POKE 49237,0 939 REM * REDUCTION --> HAUT GAUCHE # 
610 4S = “6000<4000.SFFF'": GOSUB 4000 1000 POKE 230,32 
620 POKE 4S236,0: POKE 49233,0 1010 PRINT DBS'REDUIT LARGEUR.CBJ" 
630 PRINT : INPUT ‘NOM DE L'’IMAGE 3: ‘: 1020 PÜKE 49237,0 
135 1030 AS = “2000<4000.SFFF'": GOSUB 4000 
640 POKE 49232,0 1040  HGK2Z 
650 PRINT DLSI3$",AS2000" 1050 POÜKE 230,32: KEM PAGE=1 
655  HGR2 1060 PRINT CHRS (4)'"BRUN REDUIT HAUTEU 
660 GOSUB 1000 R.UHJ" 
670 GOSUB 3000 1070 AS = “2Z000<4000.SFFF": GOSUB 4000 
675 AS = ‘4000<6000.7FFF": GOSUB 4000 1080 RETURN 
680 PRINT DBS'"HGR+HGR2->HGR2.0BJ"* 13393  RENMN + TRANSFERT GAUCHE-DROITE +* 
630 POKE 49237,0 ZO0Ù0 POKE 230,32 
709 AS = “6000<4000.SFFF'": GOÜSUE 4000 2010 POKE 492Z36,0 
710 POKE 49236,0: POKE 493233,0 2020 PRINT DBS"MOITIEi->MOITIEZ2.CBJ" 
720 PRINT : INPUT ‘NOM DE L'’'IMAGE 4: ‘: 2030 RETURN 
145$ 2393 REM #*x TRANSFERT HAUT --> BAS ## 
730 POKE 49232,0 3000 PRINT DLS"COPYLEFT" 
740 PRINT DLS14$",AS2000" 3010 POKE 771,32: POKE 772,96: POKE 773 
750  HGR2Z si: POKE 774,0 
760 GOSUB 1000 3020 POKE 49236,0 
770 GUSUB 2000 3030 CALL 768 
730 GOSUB 3000 3040 RETURN 
800 AS = ‘“4000<6000.7FFF": GÜSUB 4000 39333 KREM ##»x DÉPLACE LES PAGES #4 
810 PRINT DBS"HGR+HGR2->HGR2.0BJ" 4000 AS = AS + “M ND9C6G": FOR I = i TO 
820 POKE 49237,0: GET AS LEN (AS): POÜKE 511 + I, ASC « Mi 
830 POKE 49236,0: POKE 49233,0 DS (AS,I,1)) + 128: NEXT : POKE 7 
839 KEM #x* SAUVEGARDE DE L'IMAGE ##» 2,0: CALL - 144: KETURN 
31 DEP DFS 1 
REDUIT LARGEUR D rt 
Lisa 2.5 Sa DEBUT  LDA ##00 
35 STA OCT 
36 STA LIGNE 
i FL RÉXRR KM H RUN K KE N NN KE HE HE NE 37 ; 
cn 1. % 38 LDA ##00 
3 3% CE PROGRAMME REDUIT x 39 STA $C052 3 GRAPHIQUE TOTAL 
4 5% DE MOITIE DANS LA * 40 STA $C055 3PAGE 2 
5 ;* LARGEUR,LA PAGE 1, * 41 ; 
6 ;* ET ENVOI LE RESULTAT * 42 CHERCHE LDA LIGNE 
7 3% SUR LA PAGE 2. LI 43 LDX ##00 
8 ;+x x 44 LDY #$00 
9 ;*% AUTEUR : P |. NEVEU * 45 JSR HPOSN 
10 ;+ % 4é ; 
LA je 2626 2626 26 2626 DEEE EE MDN DEEE NE 47 LDY ##00 
12 3 48 STY DEP 
13 ; 49 STY ARR 
14 ; 50 ; 
15 HPOSN EQU $F411 51 LD HBASL 
1é HBASL EPZ $26 52 STA PIiL 
17 HBASH EPZ $27 53 LDA HBASH 
18 Pil EPZ $é 3ADRESSE DE LA 54 STA PIH 
19 PIH EPZ $7 3LIGNE ,PAGE 1 55 CLC 
20 P2L EPZ $8 3ADRESSE DE LA 56 ADC ##20 
2i P2H EPZ $9 3LIGNE ,PAGE 2 Le Ed STA P2H 
22 ; 58 LDA PIL 
23 ORG $300 Li STA P2L 
24 ; 60 5; 
25 JMP DEBUT 61 CHARGE LDY DEP 
26 ; 62 LDA CPIL),Y 
27 LIGNE DFS 1 ;NUMERO DE LIGNE 63 STA OCTI 
28 OCT DFS 1 30CTET RESULTAT 64 INC DEP 
29 OCTIi DFS 1 3O0CTETS À 65 LOY DEP 
30 OCT2 DFS 1 3 RACCOURCIR. 66 LDA CP1L),Y 
Pom's n° 13 
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67 STA OCT2 110 


CCI 








68 INC DEP iii LDA OCT2 
69 ; 112 AND ##10 ;BITS 
| 70 ;2 OCTETS-)1 OCTET 113 ASL jé 
71 ; 114 CLC 
| 72 LDA #$00 115 ADC OCT 
73 STA OCT 116 STA OCT 
74 ; 117 3 
75 LDA OCTI 118 LDA OCT2 
76 AND #$80 ;BITS 119 AND #$04 ;BIT3 
77 CLC ;--)8 120 ASL 3-25 
78 ADC OCT 121 ASL 
79 STA OCT 122 CLC 
80 ; 123 ADC OCT 
ei LDA OCTI 124 STA OCT 
5 82 AND H$20 ;BITé 125 ; 
Fi 83 LSR 3-3 126 LDA OCT2 
“x 84 LSR 127 AND #$01 3BITI 
ie 85 LSR 128 ASL ÿ-->4 
Fa) 86 CLC 129 ASL 
és 87 ADC OCT 130 ASL 
Er 88 STA OCT 131 ADC OCT 
£a 89 ; 132 STA OCT 
pr a LDA OCTI 133 ; 
# 91 AND #$08 ;BIT4 134 ;SAUVE L’OCTET 
#2 92 LSR 3-2 135 ; 
: 93 LSR 136 LDY ARR 
(Bs 94 CLC 137 STA (P2L) ,Y 
L: 95 ADC OCT 138 INC ARR 
gé STA OCT 139 .LDA ARR 
97 3 140 CMP #119 
98 LDA OCTI 141 BEQ CONT 
99 AND #$02 ;BIT2 142 JMP CHARGE 
100 LSR 31 143 ; 
101 CLC 144 ;LIGNE SUIVANTE 
102 ADC OCT 145 ; 
103 STA OCT 146 CONT INC LIGNE 
104 ; 147 LDA LIGNE 
105 LDA OCT2 148 CMP #!192 
106 AND #540 ;BIT7 149 BEQ FIN 
107 CLC ÿ—-)7 150 JMP CHERCHE 
108 ADC OCT 151 FIN RTS 
109 STA OCT 152 END 
Récapitulation Programme 34 LDA HBASH 
35 STA P1H 
REDUIT LARGEUR a 56 ; 
Lisa 2.5 37 LDA LIGNEZ2 
38 LDX #$00 
À 522626 DE DE DE DE DE DE DE DE DE DE DE DE DE HE DE DEEE EEK 39 LOY #$00 
0300- 4C 09 03 CO 60 00 A9 00 2 3;% x 40 JSR HPOSN 
0308- 8D A? 00 8D 04 03 8D 03 3 j* CE PROGRAMME PREND UNE *x 41 LDA HBASL 
0310- 03 A9 00 8D 52 CO 8D 55 4 3% LIGNE SUR DEUX DE LA %* 42 STA P2L 
| 0318- CO AD 03 03 A2 00 A0 00 S ;* PAGE 1 ET SAUVE SUR LA x 43 LDA HBASH 
0320- 20 ii F4 AO 00 8C 07 03 6 3% PAGE 2. *x 44 CLC 
0328- 8C 08 03 A5 26 85 06 A5 7 1% * 45 ADC #$20 
0330- 27 85 07 18 69 20 85 09 B 3 MRRIIEMIEOONNENEMRRREEEX À STA P2H 
0338- A5 06 85 08 AC 07 03 B1 9 3 47 ; 
0340- 06 8D 05 03 EE 07 03 AC 10 ; 48 ; 
0348- 07 03 Bi 06 8D 06 03 EE 11 HPOSN EQU #$F41i 49 LDY #$00 
| 0350- 07 03 A9 00 8D 604 03 AD 12 HBASL EPZ $26 50 BOUCLE LDA CPI1L),Y 
| 0358- 05 03 29 80 18 6D 04 03 . ah Enr ri A CP2L),Y 
0260- 8D 04 03 AD 05 08 29 20 JS PI ere à . MARS 
0370- 04 03 AD 05 03 29 08 4 16 P2L EPZ $8 54 BNE BOUCLE 
o 17 P2H EPZ #9 55 INC LIGNE! 
se e ‘a 2 ee nes 2e 18 LIGNEI EPZ $A 56 INC LIGNEI 
0388- 04 03 8D 04 03 AD 06 03 17 LIGNEZ  EPZ $8 57 INC LIGNE2 
20 ; 58 LDA LIGNE! 
0390- 29 40 18 6D 04 03 &D 04 À, a: dabg Es peines 
0398- 03 AD 06 03 29 10 0A 18 2, …. NE CHERCHÉ 
03A0- 6D 04 03 8D 04 03 AD 06 55 ; é1 ; 
TE 4 2 Le pa net pes 24 DEBUT  LDA ##00 62 ; PASSE EN PAGE 2 
25 STA LIGNE1 63 ; POUR VOIR LE 
03B8- 01 OA DA OA 6D 04 03 8D 35% STA LIGNE? 64 : RESULTAT 
03C0- 04 03 AC 08 03 91 08 EE 27, 65 ; 
03C8- 08 03 AD 08 03 C9 13 FO 
03D0- 03 4C 3C 03 EE 03 03 AD ren ie de is a . pat 
03D8- 03 03 C9 CO F0 03 4C 19 LDY #$00 ée STA $C055 
OSE0- 03 60 31 JSR HPOSN 69 ; 
32 LDA HBASL 70 RTS 
3 STA P1L 71 END 
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Récapitulation 0310- A0 00 20 11 F4 A9 00 8D 84 STA  LIGNP+1 
0318- 04 03 18 69 14 8D 05 








03 85 
REDUIT HAUTEUR 0920- AC 04 08 Bi 26 AC 05 08 à Œe 
— 91 26 À9 00 AC 04 03 91 88 ADC SENS 
0300- À9 00 85 04 85 0B À5 0A 0330- 26 EE 04 03 EE 05 03 AD 89 STA NOLIGN 
0308- A2 00 A0 00 20 11 F4 AS  0338- 04 03 C9 14 DO E2 EE 03 Hé CUP, MAY 
0310- 26 85 06 A5 27 85 07 AS  a340- 03 AD 03 03 C? CO DO C2 LS En 
0318- 0B A2 00 A0 00 20 11 F4 0348- 60 93 STA NOLIGN 
0320- ÀS 26 85 08 À5 27 18 69 94 LIGNI LDA PAGE 
0328- 20 85 09 A0 00 Bt 06 91 95 STA  HPAG 
0330- 08 C& CO 27 DO F7 Eé a Programme COPYLEFT La STA HLION 
0338- Eé 0A Eé 0B A5 0A C9 CO 5 58 JSR  HPOSN 
0340- DO C4 AS 00 8D 52 CO 8D Big Mac 99 RTS 
0348- 55 CO 40 
1 HRK HN DE MEME DEDE DEN MEME DE DE DE DEEE EEE .. FIN RTS 
2 * COPYLEFT * 102 END HE 
Programme D DM DIEU HE JE DE JE DE DE DE DE DE DE DE JE DE DE DE EE JE DE DE Fes 
4 
MOITIE 1 —> MOITIE 2 S « Refs Pon’s #3 p.59 F1] 
6 4 H Bal 
Lisa 2.5 Ne ci Due Récapitulation COPYLEFT Ë 
8 NB = $01 ? 
1 5 DL ©». Pom’s 3 p. 53 ou fl 
RÉEL ELLES LEE S SSL SSL LL ELLE E SE] 10 SAVX = +04 Es! 
3 ;+ x 11 SENS = $05 Recueil 1 P. 140 Hs 
È 12 LIGN = $26 me 
4 3% CE PROGRAMME TRANSFERE *% 55 Lin =  #E2 0300- 4C 18 03 20 00 00 00 00 Là 
S 3* LA MOITIE DE LA PAGE 2 # 14 HpaG =  $Eé 0308- 00 00 00 00 00 00 00 00 He 
: 2 SUR L'AUTRE MOITIE  * it = _.s 0310- 0Q 00 00 00 00 00 00 00 1 
8 PARA RP NU 17 HIRES2 = $c0s2 VAL PAPIER AN BE CCS ED EME ET 
o L 18 HIRES3 = $C057 0320- CO A2 00 86 04 AD 54 CO 3 
FA. 19 PAGE =  #C054 0328- AD 03 03 C9 40 DO 03 AD 
11 HPOEN EGU Eat ci PAGE2 7 $C05s 0330- 55 CO A9 00 85 00 85 E2 
19 BAG ÉPr aus dé: 3500 0338- 20 11 F4 A6 04 Eé 04 Eé 
13 HBAGN Er 07 23 0340- 04 BD 04 03 F0 51 85 01 
14: 24 JMP _ DEBUT 0348- E8 BD 04 03 85 05 A5 05 
25 0350- 10 04 A9 CO 85 00 20 62 
15 ORG #$300 26 PAGE HEX 20 
16 ; 27 SEQU DFB 0,0,0,0,0,0,0,0,0,0 0358- 03 Cé 01 AS 01 DO EF 40 
17 JMP DEBUT 28 DFB 0,0,0,0,0,0,0,0,0,0 0360- 32 03 20 73 03 A0 27 Bi 
18 ; 29 0368- 26 91 02 88 10 F9 A5 00 
19 LIGNE DFS 1 : DEBUT nr Tibet 0370- DO FO 60 A5 26 85 02 AS 
20 DEP DFS 1 Le. HIDESS 0378- 27 85 03 A5 00 18 65 05 
21 ARR DFS 1 33 LDA HIRES3 0380- 85 00 CS CO DO 04 A9 00 
22 ; 34 0388- 85 00 AD 03 03 85 Eé A5 
23 DEBUT LDA #$00 5 ie res 0390- Qû 85 E2 20 11 F4 60 60 
24 STA LIGNE 37 
25 ; 38 LDA PAGEI 
26 CHERCHE LDA LIGNE 39 LDA PAGE Programme 
27 LDX #$00 40 CMP  #$40 
28 LOY ##00 42 LOS PAGEZ HGR 2 — HGR 
29 JSR HPOSN 43 BOUCLE LDA #0 
30 ; 44 STA  NOLIGN Lisa 2.5 
be pe: ren Hi 1 3 XX XX NEED EEN EN K XX XXE 
47 2 ;x * 
= An ou 4e LOX. SAvx 3 j* CE PROGRAMME TRANSFERE * 
es he = Les SAUX A 7 LA PAGE GRAPHIQUE 1->2 : 
36 : si LDA SEQU,X ! 
5 s2 BEGQ FIN 6 7 EX ER HE DEEE EN EEENX EE X 
37 BOUCLE{ LDY DEP . DTA NE 7; 
38 LDA CHBASL) ,Y 54 INX 8 ; 
39 LDY ARR 55 LDA SEQU,X o ORG +200 
40 STA (HBASL) ,Y Es STA SENS 10 ; 
41 LDA #$00 11 DEP EPZ $é 
42 LDY DEP anne 12 ARR EPZ $8 
43 STA (HBASL) ,Y 60 LDA #192 13 ; 
44 INC DEP éi STA  NOLIGN 14 DEBUT LDA #$00 
45 INC ARR 62 15 STA DEP 
46 LDA DEP 63 BOUCL3 JSR TOUR 1é STA ARR 
47 CMP #!20 pe re 17 LDA #$40 
1e STA DEP+1 
ne BNE BOUCLE! éé ENE  BOUCL2 3 ÉD Son 
. 67 
50 | INC LIGNE 68 JMP_ BOUCLE 20 STA ARR+i 
69 21 LDX #!32 
_ LDA LINE 70 TOUR JSR CLIGN 22 LOY ##FF 
CMP #: 192 71 LDY ##27 23 SUIVANT LDA (DEP) ,Y 
53 BNE CHERCHE 72 TOUR! LDA  (CLIGN),Y > 
54 RTS 73 STA  CLIGNP) ,Y 24 STA (ARR) ,Y 
55 END 74 DEY 25 DEY 
75 BPL TOURI 26 BNE SUIVANT 
, ; 76 27 BLOCSUI INC DEP+1 
Récapitulation 77 LOA  NOLTEN 28 INC ARR+ 1 
Ge pars 29 DEX 
MOITIE 1 — MOITIE 2 ra 30 EMI FIN 
81 CLIGN  LDA LIGN 31 BNE SUIVANT 
0300- 4C 0é 03 CO 14 28 A9 00 82 STA  LIGNP 32 FIN RTS 
0308- 8D 03 03 AD 03 03 A2 00 83 LDA . LIGN+1 33 END 
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Récapitulation 
HGR 2 — HGR 


0300- 49 00 85 06 85 08 A9 40 
0308- 85 07 A9 20 85 09 À2 20 
0310- A0 FF B1 06 91 08 88 DO 
0318- F9 Eé 07 Eé 09 CA 30 02 
0320- DO FO 60 


Programme 
HGR + HGR 2 — HGR 2 
Lisa 2.5 


1 ; 
2 SEXE RHUME NN DEEE ME EE EEE EX 
3 ;*% * 


4 ;x*x CE PROGRAMME SUPERPOSE * 
5 ;* LA PAGE 1 SUR LA PAGE 2 * 
6 3% x 
73 REED DD ME DE DFE DE DE DE DE DE DE DEDE DE DE DE DE DIE IE EE 
8 


9 ORG $300 
16 3; 

11 P1 EPZ $é 

12 P2 EPZ $8 

13 ; 

14 LDA #$00 
15 STA P1 

lié STA P2 

17 TAY 

18 TAX 

19 LDA ##$40 
20 STA P2+i 
21 LDA #$20 
22 STA Pi+i 
23 3; 
24 OCT LDA CP1),Y 
25 ORA CP2),Y 
26 STA (P2),Y 


27 INY 

28 BNE OCT 
2# INC Pi+i 
30 INC P2+1 
31 LDY ##00 
32 INX 

33 CPX #!33 
34 BNE OCT 
35 RTS 

36 END 
Récapitulation 


HGR + HGR 2 — HGR 2 


0300- A9 O0 85 06 85 08 À8 
0308- À9 40 85 09 À9 20 85 07 
0310- Bi Qé 11 08 91 08 C8 DO 
0318- F7 Eé 07 Eé 09 A0 00 E8 
0320- EQ0 21 DQ EC 60 





Initiation à l’assembleur (3) 


Gérard Michel 


Chose promise Le temps semble 
maintenant venu de préciser la na- 
ture du ‘dernier résultat” maintes 
fois rencontré dans les deux premiers 
articles, notamment au sujet des ins- 
tructions de test et branchement 
BEQ et BNE. 

Au travers des problèmes déjà traités, 
il ressort que le ‘dernier résultat” se 
comporte en fait comme un indica- 
teur caractéristique du résultat de la 
dernière opération effectuée par le 
processeur. Ainsi, après LDA $18, 
nous étions capables de savoir si l’ac- 
cumulateur contenait O ou non, en 
testant la valeur du ‘dernier résultat” 
par BEQ ou BNE. De même, après 
CMP $25, le ‘dernier résultat” pou- 
vait nous indiquer si l’accumulateur 
et l'adresse $25 contenaient la même 
valeur; dans l’affirmative, BEQ pro- 
voquait un branchement mais le pro- 
gramme continuait en séquence dans 
le cas contraire. 

Avant d'aller plus loin sur cette no- 
tion ”’d’indicateur”, nous devons tou- 
tefois examiner rapidement la façon 
dont sont représentées les informa- 
tions pour le processeur. 


La représentation des 
nombres 


Pour votre Apple, la quantité écono- 
mique d’information c'est l'octet. Ce 
n'est pas pour autant son langage 
“naturel” puisque, comme chacun 
sait, l'ordinateur ne dispose que de 
nombres binaires (bits) pour expri- 
mer sa pensée et comprendre la 
vôtre... 

Un octet se compose donc de huit 
bits, soit huit chiffres ne pouvant 
prendre chacun que la valeur O ou 1. 
De ce fait, l’octet peut représenter 





une valeur comprise entre 
00000000” et 11111111”. Sans 
entrer dans les détails de l'algèbre bi- 
naire, rappelons que le nombre 
11111111” se convertit en décimal 
de la façon suivante, en traitant les 
bits de la droite vers la gauche (du 
bit O vers le bit 7): 

(1x(2 0)) + (1x(2 1)) + (1x(2 2)) 
+ (1x(2 3)) +. (1x(2 4)) + 
(1x(2 5)) + (1x(2 6)) + (1x(2 7)) 
= 1+2+44+8 +16 + 32 +64 
+ 128 = 255 


Ceci vous explique en outre pour- 
quoi nous avons pu jadis affirmer 
que la valeur d'un octet, et donc 
d'un registre ou d'une adresse-mé- 
moire, devait se situer entre O et 255 
en décimal. 


Mais une question se pose mainte- 
nant: et l'hexadécimal, dans tout 
cela ! Rassurez-vous, il n’est pas loin. 
Comme un octet peut également 
s'écrire au moyen de deux chiffres 
hexadécimaux, il semble naturel de 
supposer que le chiffre de gauche 
correspond aux quatre bits de qau- 
che et celui de droite aux quatre bits 


de droite. Ainsi, 11111111” = 
71111” 1111” = ‘’1+2+4+87 
"1+2+4+8" = 715" 715” = ’F” 


°F” = $FF.. et la boucle est bou- 
clée. Cette explication n'est sans 
doute pas très mathématique, mais 
elle suffira pour quider la suite du 
propos. 


En effet, lors de l'examen de l'ins- 
truction BEQ, nous avons évoqué la 
possibilité de déplacements ”’néga- 
tifs” vers le haut du programme en 
disant simplement que $FF corres- 
pondait à —1 en décimal, $FE à —2, 
et ainsi de suite jusqu'à $80 pour 


—128. Il s’agit donc de savoir par 
quel miracle un même nombre peut 
valoir à la fois +255 et —-1! 
L'explication réside dans la pauvreté 
de l'octet en tant que quantité d'in- 
formation, puisqu'il faut représenter 
au moyen de huit bits seulement des 
nombres positifs ET négatifs. La 
convention adoptée en la matière 
confère au bit le plus à gauche (bit 
7) le rôle particulier de ‘bit de 
signe”: lorsque ce bit vaut 0, le 
nombre est considéré comme positif, 
et inversement, un nombre est consi- 
déré comme négatif lorsque son bit 7 
vaut 1. 

Les nombres positifs vont donc de 
00000000” à "01111111", soit O à 
+127 ou encore $00 à $7F, tandis 
que les nombres négatifs vont de 
10000000" à 11111111”, soit 
—128 à —1 ou encore $80 à $FF. 
L'ambiguïté provient finalement de 
ce que le signe ne présente d'intérêt 
que si l’on doit en tenir compte pour 
les besoins du programme (merci 
Monsieur de La Palice). $FF vaut 
toujours 255, évidemment, mais si 
l'on doit manipuler la valeur —1, il 
faut savoir que le processeur la code 
également au moyen de $FF. 


Mais, direz-vous, à quoi bon se fati- 
guer avec des nombres négatifs sur 
un octet puisque la représentation 
des nombres réels réclamera inévita- 
blement un système plus complexe 
de plusieurs octets et une codification 
du signe indépendante de celle de la 
valeur ? Certes, mais il n’en reste pas 
moins qu'il faut pouvoir effectuer des 
soustractions sur des nombres d'un 
seul octet, et comment calculer 
5-4” si l'on ne sait calculer 
75+(—-4)".. 
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Additions et 
soustractions en binaire 


Les règles de l'addition sont simples : 
0+0=0 

1+0=0+1=1 

1 + 1 = 0 avec une retenue de 1 


1 + 1 + (retenue) = 1 avec retenue 
Quelques exemples : 


00000001 + 00000001 
00000010 

00100000 + 00111111 
01011111 

11111111 + 00000001 
00000000 avec retenue 
rieure” de 1 


exté- 


Dans le dernier exemple, la retenue 
sort de l’octet. Nous n'avons pas à 
en tenir compte pour le résultat arith- 
métique de notre calcul sur un octet 
($FF + $01 = $00 de même que 9 
+ 1 = 0 en décimal si l'on ne 
compte que sur un chiffre), mais 
nous verrons plus loin que le proces- 
seur conserve la trace de ce neu- 
vième bit extérieur. 


Abordons maintenant le problème 
plus délicat des soustractions. 

Pour calculer 5-3, nous devons 
ajouter —3 à 5, et donc déterminer 
tout d’abord la représentation de —3. 
La méthode utilisée s'appelle le 
“complément à 2” et suppose deux 
étapes dont l’une, baptisée ‘’complé- 
ment à 1”, consiste à remplacer tous 
les 1 d’un octet par des 0 et inverse- 
ment tous ses 0 par des 1 : 

3 = 00000011 

Complément à 1 de 3 =11111100 
On ajoute 1 à la valeur précédente : 
complément à 2 de 3 = 11111101 


notre soustraction donne donc finale- 

ment : 

00000101 + 11111101 = 
00000010 avec une retenue exté- 
rieure dont on ne tient pas 
compte. On vérifie bien que 5-3 


Calculons maintenant (—5) + (—3): 

5 = 00000101, d'où complément à 

1:11111010 

—5 = 11111011 

(—5) + (—3) = 11111011 + 

11111101 = 11111000 avec rete- 

nue de 1 

11111000 est un nombre négatif (bit 

7 à 1), mais quel nombre ? Pour le 

savoir, faisons l'inverse du complé- 

ment à 2, en retirant d'abord 1 à 

notre nombre, ce qui revient à lui 

ajouter —1, soit $FF = 11111111: 

11111000 + 11111111 = 
11110111 

Complément à 1 de 11110111 = 

00001000 = 1x(2 3) = 8 

11111000 est donc égal à —8 (com- 

plément à 2 de +8). 

Une autre méthode pour déterminer 

à quel nombre négatif en décimal 

correspond un octet dont le bit 7 est 

à 1 consiste à le convertir tout 
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d'abord en valeur absolue (sans tenir 
compte du signe), puis à retirer 256 
à la valeur ainsi obtenue. loi, 
nr US = 248, et 248-256 — 
Tout semble par conséquent aller 
pour le mieux dans le meilleur des 
mondes possibles. 


Hélas, ce n’est qu'une apparence fra- 
gile ! Calculons par exemple 64+64 : 
64 = 01000000 

64 + 64 =01000000 + 01000000 
= 10000000 

10000000 est un nombre négatif, 
—128 plus précisément, et donc 
64+64 = —128! 


Surprenant, n'est-ce pas ? Mais vous 
aurez noté que notre calcul est arith- 
métiquement juste car, si l’on ne se 
préoccupe pas du signe, 10000000 
vaut également +128, ce qui est plus 
convenable. Le résultat n’est qu'algé- 
briquement faux, en raison de la re- 
tenue qui s’est opérée du bit 6 sur le 
bit 7 en provoquant un changement 
de signe intempestif, Ce phénomène 
est baptisé débordement”. 


Autre exemple de débordement : 
—127 + —62 = 10000001 + 
11000010 = 01000011 avec rete- 
nue extérieure. 01000011 vaut +67 
en décimal, d'où résultat erroné. 
Mais raisonnons une fois encore en 
négligeant le signe : 

10000001 = 129 = $81 

11000010 = 194 = $C2 

10000001 + 11000010 = 129 + 
194 = $81 + $C2 = 323 = $143, 
soit un résultat sur deux octets, avec 
poids fort de $01 (256) et poids fai- 
ble de $43 (67) En ne tenant 
compte que de l'octet de poids fai- 
ble, la valeur +67 est donc correcte. 
En d’autres termes, le débordement 
ne conduit réellement à des résultats 
faux que si le signe du résultat est 
pertinent pour l'utilisation qui doit 
être faite de ce résultat. C’est pour- 
quoi vous avez pu trouver dans 
Pom's de nombreux programmes en 
assembleur dans lesquels étaient ef- 
fectuées des additions et des sous- 
tractions sans que le programmeur 
semblât se soucier de l'éventualité 
d'un débordement. Si nous en avons 
parlé ici, c'est surtout parce que, au 
même titre que la ‘retenue exté- 
rieure” ou le “dernier résultat = 0”, 
le débordement fait partie de ces in- 
dicateurs caractéristiques que nous 
allons maintenant examiner plus en 
détail. 


Le registre d’état du 
microprocesseur 


Comme les autres registres (accumu- 
lateur ou registres d’index X et Y), le 
registre d'état peut être considéré 
comme une variable interne au mi- 
croprocesseur. Il s’agit donc d’un 
octet, dont le programmeur n'a 


jamais à préciser le nom ou l'empla- 
cement mémoire, que le micropro- 
cesseur gère automatiquement et au- 
quel certaines instructions de 
l'assembleur font directement réfé- 
rence sous le nom P (au même titre 
que À pour l'accumulateur). 

Mais chaque bit du registre d'état 
revêt une signification particulière, 
alors que les autres registres sont 
plus généralement manipulés au ni- 
veau de l’octet. Plus précisément, le 
registre d'état doit refléter l'état” du 
microprocesseur à l'issue de la der- 
nière opération significative effectuée 
et, de fait, c'est lui qui nous rensei- 
gne sur les caractéristiques du ‘’der- 
nier résultat”. Chaque bit du registre 
d'état joue ainsi le rôle d'indicateur, 
en ce qu'il conserve le statut de la 
dernière opération vis-à-vis des critè- 
res donnés comme significatifs pour 
la machine (dernier résultat nul, rete- 
nue externe, débordement dans les 
calculs.) 


Sur les huit bits de l'octet composant 
le registre d'état, sept sont réellement 
pertinents pour le processeur de 
l'Apple : 


e Bit 7 : indicateur de signe (baptisé 
N dans la littérature). Ce bit vaut 
0 si la dernière opération donne 
un résultat positif et 1 dans le cas 
contraire (le bit 7 de l’octet conte- 
nant le résultat est alors à 1). 
Notons dès maintenant que les 
bits d'état sont positionnés selon la 
même méthode que pour les opé- 
rateurs logiques: 1 veut dire 
vrai” (N vaut 1 si le dernier résul- 
tat est négatif) et O veut dire 
faux”. 

e Bit 6: indicateur de débordement 
(baptisé V): vaut 1 si la dernière 
opération provoque un déborde- 
ment (voir ci-dessus l'addition 
64+64) et 0 sinon. 

e Bit 5: inutilisé. 

e Bit 4: indicateur de ‘BREAK. 
Nous en préciserons la fonction 
dans un article ultérieur. 

e Bit 3: indicateur ‘décimal codé 
binaire”, dont nous réserverons 
également l'analyse pour nos pro- 
chaines rencontres. 

e Bit 2: indicateur interruption”, 
avec même remarque que ci- 
dessus car à chaque jour suffit sa 
peine... 

e Bit 1: indicateur ‘zéro’ (baptisé 
Z). Ce bit vaut 1 lorsque la der- 
nière opération donne un résultat 
nul et O dans le cas contraire. 
Vous subodorez donc déjà que cet 
indicateur Z doit avoir quelque 
rapport avec nos instructions BEQ 
et BNE (ne vous découragez pas 
pour autant si vous ne subodorez 
rien.…). 

e Bit O: indicateur de retenue (C 
pour les intimes !). Il vaut 1 lors- 
que la dernière opération provo- 
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que une retenue et 0 sinon. Nous 
avions dit précédemment que le 
processeur pouvait tenir compte 
des retenues extérieures” occa- 
sionnées par des opérations sur 
des nombres codés en un seul 
octet, au travers d’un ‘’neuvième” 
bit. Vous ne serez donc pas surpris 


d'apprendre que c'est l'indicateur. 


C qui joue ce rôle de neuvième 
bit: ne vaut-il pas justement 1 
lorsqu'une retenue sort de l’octet 
et qu'un ”’1” doit par conséquent 
être stocké quelque part dans l’hy- 
pothèse où l'opération porterait 
sur plus d’un octet (songez à ce 
que vous faisiez à l’école pour ad- 
ditionner 9 et 1: ‘je pose 0 et je 
retiens 1”. Le processeur retient 
tout simplement 1 dans le bit C de 
son registre d'état). 


Le langage assembleur autorise deux 
types de manipulation sur les bits du 
registre d'état: test et branchement 
(voir BEQ et BNE), mais aussi posi- 
tionnement ‘forcé” de certains indi- 
cateurs. Nous examinerons dans l’or- 
dre ces deux types d'instructions. 


Test et branchement 


Nous limitons pour l'heure notre 
propos aux indicateurs N (signe), V 
(débordement), Z (zéro) et C (rete- 
nue). 


Deux des instructions de test et bran- 
chement nous sont d'ores et déjà 
connues : BEQ provoque un bran- 
chement si ”’dernier résultat = 0”, ce 
qui revient à dire que le bit Z vaut 1 
(‘dernier résultat — 0” est vrai), 
tandis que BNE provoque un bran- 
chement si dernier résultat <> 0” 
(bit Z vaut O). 

Il existe de même un couple d'ins- 
tructions pour chacun de nos trois 
autres bits du registre d'état. 


Bit N (signe) 


e BMI (30) : branchement si négatif, 
c'est-à-dire si le bit N vaut 1. 

e BPL (10): branchement si positif 
(bit N vaut O). 


Bit V (débordement) 


e BVS (70): branchement si ’der- 
nier résultat provoque un débor- 
dement” (bit V = 1). 

e BUC (50) : branchement si pas de 
débordement (bit V = 0). 


Bit C (retenue) 


e BCS (BO): branchement si ’’der- 
nier résultat provoque une rete- 
nue” (bit C = 1). 

e BCC (90) : branchement si pas de 
retenue (bit C = O). 


Bit Z (zéro) 


BEQ et BNE sont, bien sûr, les deux 
instructions concernées. 
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Les règles du branchement sont les 
mêmes pour toutes les instructions ci- 
dessus que pour BEQ et BNE: il 
s’agit toujours d’un déplacement de 
X octets vers le haut ou le bas selon 
la valeur donnée à la suite du code 
de l'instruction. Rappelons en outre 
que c’est le microprocesseur qui po- 
sitionne tout seul ses indicateurs N, 
V, Z'et C en fonction du travail qui 
lui est demandé et que nous nous 
contentons, par des instructions du 
tupe B., de tester la valeur de ces 
indicateurs après les opérations, afin 
de décider de la suite des traitements 
à effectuer. 


Puisque nous parlerons moins dans 
la suite de l’article de l'indicateur V 
que des autres, précisons qu'il peut 
servir notamment à corriger des ré- 
sultats pour lesquels le signe est si- 
gnificatif (ainsi, BVS devrait alors en- 
traîner une action correctrice sur le 
signe du résultat - modification du bit 
7), et qu'il peut également servir de 
drapeau” dans les sous-routines (si, 
par exemple, le bit V n'a aucune 
chance d'être modifié à l'intérieur 
d'une telle routine, on peut lui don- 
ner la valeur 0 ou 1 avant l’appel de 
la sous-routine, selon le type d'appel, 
et orienter ensuite les traitements par 
des tests BVC ou BVS). 


?Forcer” la valeur des bits d’état 


Le terme forcer” est fréquemment 
utilisé lorsque l’on traite de langage 
machine ou d’assembleur, pour indi- 
quer que l’on impose à certaines va- 
riables caractéristiques des valeurs 
qui ne sont pas nécessairement celles 
que leur donne le processeur en 
fonction des opérations effectuées. 
C'est bien le terme qui s'applique ici 
puisque le programmeur peut mani- 
puler par certaines instructions la va- 
leur des bits du registre d'état, et ce 
indépendamment de toute autre opé- 
ration. 


Bit C (retenue) 


CLC (18) : met à 0 le bit C. 
SEC (38) : met à 1 le bit C. 


Bit V (débordement) 
CLV (B8) : met à 0 le bit V. 


Ce sont là les seules instructions ”di- 
rectes” dont nous disposons pour 
forcer les bits du registre d'état (du 
moins les quatre bits que nous exa- 
minons pour l'instant). On peut ce- 
pendant manipuler les autres bits par 
des moyens indirects. Ainsi LDA #$0 
met le bit Z à 1 et N à O (dernier 
résultat nul mais positif), LDA #$FF 
met Z à O et N à 1 (dernier résulat 
différent de 0 et négatif, puisque $FF 
= 11111111, avec bit 7 à 1, ce qui 
caractérise pour le processeur un 


nombre négatif), De même, ajouter 
#$40 à #$40 met à 1 le bit V ($40 
= 64 = 01000000, 01000000 + 
01000000 = 10000000, d'où rete- 
nue du bit 6 sur le bit de signe, ce 
qui positionnera dans le cas présent 
l'indicateur de débordement à 1 en 
raison de l'erreur au niveau du résul- 
tat : 64 + 64 — —128). 


Mais, une fois encore, un murmure 
court dans la foule : ajouter #$40 à 
#$40, certes, mais comment ? Voici 
la réponse. 


Addition d’un octet à un 
autre 


Le microprocesseur de votre Apple 
dispose d’une instruction pour ajou- 
ter une valeur codée sur un octet à 
une autre valeur sur un octet. Le 
code mnémonique en est ADC : elle 
ajoute à l'accumulateur la valeur 
donnée après ADC (soit sous forme 
d'un nombre - #$10 par exemple - 
soit sous forme d’une variable définie 
par l’un des modes d’adressage que 
nous avons déjà étudiés). Mais elle 
ajoute en outre au résultat ainsi ob- 
tenu la valeur du bit C (0 ou 1). 
Pourquoi ? Tout simplement pour 
permettre les additions sur deux 
octets. Voyons tout d’abord les diffé- 
rents formats de l'instruction ADC 
avant de revenir sur ce point. 


ADC nombre = ADC #$XX = 69 
XX (où XX désigne un nombre de 
deux chiffres hexadécimaux) 


ADC contenu d’une adresse en page 
zéro = ADC ADR = ADC faa = 65 
aa (par exemple, 65 18) 


ADC contenu d'une adresse quel- 
conque = ADC ADR = ADC $faaaa 
— 6D octet bas/octet haut 


ADC ADR.X = ADC $aaaa.X = 7D 
octet bas/octet haut 


ADC ADR.Y = ADC faaaa,Ÿ = 79 
octet bas/octet haut 


ADC adresse page zéro,X = ADC 
ADR,X = ADC $faa,X = 75 adresse 


ADC (ADR,X) = ADC ($aa.X) = 61 
adresse 


ADC (ADR).Y = ADC ($aa),Y = 71 
adresse 


Notez bien que c'est toujours à l’ac- 
cumulateur que l'instruction ADC 
ajoute quelque chose, le résultat de 
l'addition étant lui aussi stocké auto- 
matiquement dans l’accumulateur. 
Puisque cette addition intègre égale- 
ment le bit C du registre d'état, il 
faut veiller à ce que ce dernier soit 
bien à O avant ADC si l’on ne veut 
prendre en compte que la valeur de 
l'accumulateur et celle de l’octet qui 
lui est ajouté. Comme il n'est pas 
toujours facile de savoir comment 
sont positionnés les indicateurs du re- 
gistre d'état à l'issue des diverses ins- 
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tructions exécutées précédemment, 
l'instruction CLC peut rendre ici de 
grands services. 

Supposons ainsi que l'on veuille 
ajouter au contenu de l'adresse $18 
celui de l'adresse $DD60 et conser- 
ver le résultat en $18. Le programme 
réalisant ce traitement serait le sui- 
vant : 


LDA $18 (A5 18) 

CLC (18) 

ADC $DD60 (6D 60 DD) 

STA $18 (85 18) 

L'instruction CLC pourrait être sup- 
primée si nous étions sûrs de la va- 
leur 0 du bit C avant l'addition. 


L'exécution de ADC fournit un ‘der- 
nier résultat” significatif pour le pro- 
cesseur, et le registre d'état se trouve 
donc reconfiguré en fonction de ce 
dernier résultat. Sont affectés par 
l'opération les bits : 


N : mis à 1 si le résultat de l'addition 
est négatif (bit 7 de l’accumulateur à 
1 après ADC), à O sinon. 

V: mis à 1 s’il y a débordement, à O0 
sinon. 

Z: mis à 1 si l'addition donne un ré- 
sultat nul, à O sinon. 

C: mis à 1 si l'addition des deux 
nombres provoque une retenue exté- 
rieure, à 0 sinon. 


Cette mise à jour de la retenue C 
permet d'effectuer des additions avec 
des nombres de deux octets, sur le 
même principe que pour les nombres 
.écimaux (9 + 1 = 0, et la retenue 
de 1 vient s'ajouter au chiffre des di- 
zaines). Reprenons notre exemple 
précédent, en supposant cette fois 
que la valeur à laquelle on doit ajou- 
ter le contenu de l'adresse $DD60 
est stockée en $18 (poids faible) et 
$19 (poids fort). Deux solutions sont 
envisageables pour réaliser l’opéra- 
tion. 


Programme 1 


LDA $18 (A5 18) 

CEC (18) 

ADC $DD60 (6D 60 DD) 
STA $18 (85 18) 

LDA $19 (A5 19) 

ADC #$0 (69 00) 

STA $19 (85 19) 


Âprès avoir ajouté à l’octet d'adresse 
$18 la valeur de $DD60 et stocké le 
résultat en $18, on charge l’accumu- 
lateur avec la valeur de $19. On ne 
sait pas, à priori, si le premier ADC a 
produit ou non une retenue, mais on 
sait en revanche que le bit C est po- 
sitionné en conséquence. En ajoutant 
alors 0 à l’accumulateur, sans tou- 
cher à C, on lui ajoute en fait 0+0 
s'il n’y à pas de retenue, ou 0+1 s’il 
y en à une. La valeur de l’octet de 
poids fort remise ensuite en $19 tien- 
dra donc bien compte du résultat 
complet de l'addition effectuée sur 
l'octet de poids faible. 
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Si, par exemple, $18 contient #$FE 
et $19 #$03, on trouvera dans ces 
deux adresses #$FF et #$03 après 
l'opération si $DD60 contient #$01, 
mais on y trouvera #$00 et #$04 si 
$DD60 contient #$02. 


Programme 2 


LDA $18 (A5 18) 

CELC (18) 

ADC $DD60 (6D 60 DD) 

STA $18 (85 18) 

BCC suite du programme (90 02) 
INC $19 (E6 19) 

… suite du programme 


On utilise cette fois la possibilité qui 
nous est offerte de tester le bit C 
après l'addition sur l'octet de poids 
faible. Si C=0, il n'y a pas de rete- 
nue, l’octet de poids fort est donc 
correct et BCC nous amènera direc- 
tement à la suite du programme. Si 
C=1, en revanche, BCC ne provo- 
quera pas de branchement et, en in- 
crémentant $19 avant de passer à la 
suite, on aura bien rétabli la valeur 
correcte du poids fort en fonction de 
la retenue qui s'y ajoute. 

Cette solution, plus élégante, plus 
courte et plus rapide. sera préférée à 
la précédente. 


Si l'on veut enfin ajouter deux nom- 
bres codés en deux octets (le premier 
en $18-$19 et le second en $DD60- 
$DD61, par exemple, toujours dans 
l'ordre poids faible/poids fort), en 
gardant le résultat dans le premier, le 
programme devient : 


LDA $18 (AS 18) 

CLC (18) 

ADC $DD60 (6D 60 DD) 

STA $18 (85 18) 

LDA $19 (AS 19) 

ADC $DD61 (6D 61 DD) 

STA $19 (85 19) 

Ce programme ressemble fort au 

programme 1 ci-dessus, mais cette 

fois on additionne bien les deux 

poids forts, plus la retenue éventuelle 

ob de l'addition des poids fai- 
les. 


Soustraction d’un octet 
à un autre 


L'instruction équivalente à ADC pour 
la soustraction est SBC. Elle retire de 
l'accumulateur la valeur donnée 
après SBC (nombre ou contenu 
d'une adresse), mais aussi l'opposé 
du bit C, c’est-à-dire O si C=1 et 1 si 
C=0. Le résultat est stocké dans l’ac- 
cumulateur. 


Cette prise en compte de l'opposé 
de la retenue doit évidemment per- 
mettre les soustractions sur deux 
octets. 


Considérons par exemple deux 
octets quelconques O1 et O2, dont 
on sait simplement que O2 est supé- 


rieur à O1 (sans se préoccuper de 
signe). Nous appelerons B le bit de 
rang le plus élevé qui est à 1 dans 
O et à O dans O1  (s 
O1=00010011 et O2=00101111, B 
est le bit de rang 5, i.e. le troisième 
en partant de la gauche), et nous dé- 
signerons par R le rang correspon- 
dant (R=5 dans notre exemple). Sur 
la gauche de R, tous les bits de O1 
et O2, s'il en reste (si R < 7), ont la 
même valeur au même rang, 0 ou 1. 
On veut maintenant calculer O1 
—O2. Pour ce faire, on calcule 
d'abord le complément à 1 de O2, 
que nous noterons C1-O2. Dans C1- 
O2, B est donc à 0. Lorsqu'on 
ajoute ensuite 1 (00000001) à CI- 
O2 pour obtenir le complément à 2 
de O2, noté C2-O2, deux cas sont 
envisageables : 


e B reste à 0. Dans l'addition de 
C2-02 à Ol, pour calculer 
O1-—02, on a donc deux bits à 0 
au rang R qui ‘’absorberont” iné- 
vitablement toute retenue qui se 
propagerait à partir de l'addition 
des bits de rang inférieur à R (0 + 
O + retenue est au plus égal à 1, 
mais sans retenue à reporter à 
gauche). Quant aux bits situés à 
gauche de R, s'ils étaient à 1 dans 
O2, et donc dans O1, ils sont à 0 
dans C2-02; et s'ils étaient à 0 
dans O2, et donc dans Ol, ils 
sont à 1 dans C2-O2. A gauche 
de R. on ne peut donc ajouter 
que des O0 à des 1, sans retenue 
venant de la droite (il ne peut y 
en avoir au rang R) et, par consé- 
quent, il ne peut y avoir de rete- 
nue à l'extérieur de l'octet repré- 
sentant le résultat de O1—-O2. 


Exemple : 

O1 = 00101011 (43 en décimal) 
O2 = 01000100 (68): B est le bit 
de rang 6 

C1- O2 = = 10111011 

C2-02 = 10111100 (B reste à 0) 

O1 + C2-O2 = OO101011 + 
10111100 = 11100111 (—25) sans 
retenue. 


e B repasse à 1. Ceci n'est possible 
que si tous les bits situés à droite 
de R sont à 1 dans C1-O2 ou si B 
est de rang 0. Quand on ajoute 
C2-O2 à O1, on a donc, au rang 
R, un 0 dans O1 et un 1 dans C2- 
O2. Une retenue pourrait ainsi se 
propager au-delà de R, si elle ve- 
nait de l'addition des bits situés à 
droite de R. Mais, si tous les bits 
en question étaient à 1 dans C1- 
O2, ils sont nécessairement à 0 
dans (C2-O2 (par exemple, 
00001111 + 00000001 = 
00010000). À droite de KR, on 


n'ajoute donc que des O0 à autre 
chose (0 ou 1) et il ne peut y 
avoir de retenue se décalant vers 
la gauche jusqu’au rang R (dans le 
cas où B est de rang 0, le pro- 
blème ne se pose même pas: on 
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ajoute 1 à O au rang 0 sans rete- 
nue). Pour les bits de rang supé- 
rieur à R, même remarque que ci- 
dessus, là encore, il ne peut y 
avoir de retenue extérieure dans le 
résultat de O1-O2. 

Exemple : 

O1 = 00101011 

O2 — 01000000 (64): B est le bit 

de rang 6 

C1-O2 = 10111111 

C2-02 = 11000000 (B passe à 1) 

O1 + C2-O2 = 00101011 + 

11000000 = 11101011 (—21) sans 

retenue. 


En conclusion, après la soustraction 
d'un octet O2 à un octet O1 qui lui 
est inférieur, il n'y a jamais de rete- 
. extérieure et C est donc toujours 
à 0. 


Examinons maintenant le cas inverse, 
la soustraction O1—O2 lorsque O2 
est inférieur à O1. B est le bit de 
rang le plus élevé (R) qui est à O0 
dans O2 alors que le bit de même 
rang est à 1 dans O1. Dans C1-O2, 
B est donc à 1 et, pour C2-O2, deux 
hypothèses sont toujours possibles : 


e B reste à 1. Dans l'addition O1 + 
C2-02, on trouve au même rang 
R un bit à 1 dans O1 et un bit à 1 
dans C2-02, d'où apparition 
d'une retenue à reporter à gau- 
che. À gauche de R, on a toujours 
au même rang un 0 dans Ol et 
un 1 dans C2-O2, ou un 1 dans 
O1 et un O0 dans C2-O2. Au rang 
R+1, s’il existe, on ajoute donc 1 
+ 0 + retenue de 1, la retenue se 
propage en R+2, et ainsi de suite 
jusqu'à l'extérieur de l’octet (si 
R=7, la retenue opérée au rang R 
tombe de même directement à 
l'extérieur de l’octet). 

Exemple : 

O1 = 00101011 

O2 = 00010110 22): B est le bit 

de rang 5 

C1-02 = 11101001 

C2-02 = 11101010 (B reste à 1) 

O1 + C2-02 = (00101011 + 

11101010 = 00010101 (21) avec 

retenue. 


e B passe à 0. Ceci n’est possible 
que si une retenue s'est propagée 
de la droite jusqu’au rang R mais, 
de ce fait, elle se propage encore 
au moins jusqu’au rang R+1 (elle 
s'arrête là si le bit de rang R+1 
est à O dans C1-O2, mais elle 
continue encore si ce dernier est 
déjà à 1). Supposons tout d’abord 
qu'il y ait au moins un bit à O de 
rang supérieur à R dans C1-O2, 
qui se retouvera donc à 1 dans 
C2-02. Ce bit était à 1 dans O2, 
tout comme le bit correspondant 
dans O1. Dans l'opération O1 + 
C2-02, on a donc à ce rang 1+1, 
d’où retenue vers la gauche qui se 
propagera jusqu'à l'extérieur de 
l’octet puisque l’on ajoute toujours 
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pour les autres rangs O0 + 1 + re- 
tenue de 1. 
Pour qu'il n'y ait par contre aucun 
bit à O de rang supérieur à R dans 
C1-O2, tous les bits concernés 
doivent être à O0 dans O2. Par ail- 
leurs, la retenue qui arrive en R 
pour mettre B à O dans C2-0O2 
provient obligatoirement de ce 
que tous les bits à droite de R 
sont à 1 dans C1-O2, ce qui im- 
plique qu'ils étaient également à 0 
dans O2. Comme B est aussi à 0 
par définition, tous les bits de O2 
sont nuls: O2=00000000 = 0. 
C'est bien la seule valeur de O2 
pour laquelle la retenue dégagée 
au rang R dans C2-O2 lorsque le 
bit B repasse de 1 à 0 ne conduit 
pas finalement à une retenue exté- 
rieure dans le résultat O1 + C2- 
O2, soit O1-O2. 

Exemple : 

O1 = 00101011 

O2 = 00100000 (32): B est le bit 

de rang 3 

C1-O2 = 11011111 

C2-02 = 11100000 (B passe à 0) 

O1 + C2-02 = 00101011 + 

11100000 = 00001011 (11) avec 

retenue. 


En conclusion, après la soustraction 
d’un octet O2 à un octet O1 qui lui 
est supérieur, il y a toujours une rete- 
nue extérieure (C=1), sauf si O2 = 
0. 


Toutes ces explications n’ont d'autre 
but que d’aider à l'analyse de l'ins- 
truction SBC car, si l’utilisation de la 
retenue C paraît assez ‘naturelle” 
dans ADC, elle s'avère beaucoup 
moins évidente dans SBC (par assi- 
milation avec le décimal, on s’atten- 
drait plus à retirer la retenue elle- 
même que son opposé). Récapitu- 
lons. Si l’on soustrait quelque chose 
d'un nombre sur deux octets, le 
poids fort du nombre doit être dirni- 
nué de 1 si la valeur retirée de son 
poids faible lui est supérieure (si on 
calcule par exemple #$0100—#$FF 
on doit trouver #$0001 : poids faible 
= #$00—#$FF = #$01 / poids fort 
= #$01 diminué de 1 = #$00). Si 
la valeur est par contre inférieure au 
poids faible, le poids fort ne doit pas 
être affecté par cette soustraction. Or 
nous savons maintenant que si l'on 
retire une valeur trop grande d'un 
autre octet, il n’y à jamais de retenue 
extérieure : à l'issue de la soustrac- 
tion, C=0. Si l'on fait ensuite un 
SBC sur le poids fort, et ce indépen- 
damment de ce que l’on met derrière 
SBC, l'instruction retirera de toute 
façon l'opposé de C au poids fort, 
soit 1 puisque C=0, et le résultat 
sera correct. 

Inversement, si l’on retire au poids 
faible une valeur qui lui est infé- 
rieure, on aura C=1 à l'issue de la 
soustraction. Un SBC sur le poids 


fort retirera de ce dernier l'opposé de 
C, soit 0, le laissant donc correcte- 
ment inchangé. Il faudrait toutefois se 
méfier du cas où la valeur retirée au 
poids faible n'est autre que 0, car il 
n'y à pas alors de retenue extérieure 
et l'opposé de C vaut 1 (on pourrait 
ainsi calculer que #$0101—-#$00 = 
#$0001 !). Heureusement, le proces- 
seur prend ce problème en compte 
et positionne toujours C à 1 lorsque 
la valeur soustraite est O. 


Reste le cas particulier de l'égalité 
des deux valeurs: si l'on calcule 
O1-OI, le résultat obtenu sera bien 
0, mais quid du bit C? Il est clair 
que dans le complément à 1 de O1 
(C1-O1), tous les bits qui étaient à O 
dans O1 se retrouvent à 1 et récipro- 
quement. Si le bit de rang 0 est à O 
dans C1-Ol, il sera à 1 dans le 
complément à 2 (C2-O1); s’il est à 1, 
il sera à O mais une retenue se pro- 
pagera vers la gauche dans C2-O1 et 
cette retenue transformera à un mo- 
ment donné un bit à O dans C1-O1 
en un bit à 1 dans C2-O2 (sauf s’il 
n'y à que des bits à 1 dans C1-Ol, 
ce qui revient à dire que O1=0 et 
nous ramène au problème spécifique 
du zéro). À un rang R quelconque, 
on aura donc dans C2-O1 un bit re- 
venu à la même valeur 1 que dans 
O1. Les bits à droite de R (si R>0) 
seront à O après propagation de la 
retenue (ils étaient à 1 dans C1-O1 
et à 0 dans O1) : pour les rangs infé- 
rieurs à R, on ajoute ainsi 0+0. Au 
rang R, on ajoute 1+1, d’où retenue 
vers la gauche qui se propagera jus- 
qu'à l'extérieur de l'octet résultat 
O1-O1, puisque, aux rangs supé- 
rieurs à KR, on additionne toujours 
"0+1 + retenue de 1” ou ”1+0 + 
retenue de 1”. À l'issue de la sous- 
traction, (C=1: une opération 
comme #$2450-#$50 ou 
#$24FE-#$14FE produirait donc 
un résultat correct. 


Exemple 1 : 
O1 = 00101011 
C1-O1 = 11010100 (bit de rang O0 à 


0) 

C2-O1 = 11010101 

O1 + C2-O1 = 00000000 avec re- 
tenue. 


Exemple 2 : 
O1 = 01000100 
C1-O1 = 10111011 (bit de rang 0 à 


1) 

C2-O02 = 10111100 | 

O1 + C2-O1 = 00000000 avec re- 
tenue. 


Ces considérations sur l’arithmétique 
binaire peuvent vraisemblablement 
vous paraître un peu trop complexes, 
surtout en comparaison avec les 
deux premiers articles d'initiation à 
l’'assembleur. De fait, il n’est ni inter- 
dit, ni impossible, d'écrire des pro- 
grammes en assembleur, même de 
grande taille et de haute ambition, 
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sans savoir ce qu'il advient, ou doit 
advenir, de tel ou tel bit à l’occasion 
de telle ou telle opération. Il suffit 
pour cela de bien assimiler le fonc- 
tionnement des instructions et de res- 
pecter leurs règles (savoir, par exem- 
ple, qu'il faut toujours faire SEC 
avant une première soustraction et 
que les problèmes de retenue éven- 
tuels seront pris en charge par le 
deuxième SBC si l’on ne fait pas 
SEC avant). Toutefois, si vous en 
avez le goût et le temps, il vous sera 
bénéfique de creuser un peu ces 
questions, ne serait-ce que pour 
mieux comprendre les mécanismes, 
mais aussi parce que d’autres instruc- 
tions de l’assembleur, qu'il nous reste 
encore à examiner, ne travaillent” 
qu'au niveau du bit (de donnée ou 
du registre d'état) et produisent des 
résultats que l'on comprend mal si 
l'on ne s'attache pas un tant soit peu 
au contenu des octets. 


Voici maintenant la liste des diffé- 
rents formats de l'instruction SBC. 


SBC valeur = SBC #$NN = E9 NN 
SBC adresse en page zéro = SBC 
ADR = SBC $aa = E5 aa 


SBC adresse quelconque = SBC 
ADR = SBC $faaaa — ED octet 
bas/octet haut 

SBC ‘adresse page zéro”,X = SBC 
ADR,X = SBC $aa,X = F5 aa 

SBC ‘adresse quelconque”,X = 
SBC ADR.X = SBC faaaa,X = FD 
octet bas/octet haut 

SBC ‘adresse quelconque”, Y = 
SBC ADR,Y = SBC faaaa,Ÿ = F9 
octet bas/octet haut 


SBC (ADR,X) = SBC ($aa,X) = El 
aa 
SBC (ADR),Y = SBC ($aa),Ÿ = F1 


aa 


Rappelons que, comme pour ADC, 
la donnée à laquelle on retire une 
autre donnée (indiquée explicitement 
ou obtenue par l’un des modes 
d'adressage précisés ci-dessus) est 
toujours contenue dans le registre ac- 
cumulateur. 


Mis à part le bit C dont il a déjà été 
longuement question, l'exécution de 
SBC affecte les mêmes indicateurs 
du registre d'état que celle de ADC, 
à savoir N, V et Z, et ce exactement 
selon les mêmes règles. 


Sachant que SBC retire l'opposé de 
la retenue du résultat de la soustrac- 
tion proprement dite, il faut s'assurer 
que le bit C est bien à 1 lorsque l’on 
travaille sur des nombres d’un seul 
octet ou sur les octets de poids fai- 
ble. Si un doute plane sur ce point 
au moment de procéder à l’opéra- 
tion, on utilisera l'instruction SEC 
pour l’éliminer. 


Vous trouverez ci-après les petits pro- 
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grammes présentés précédemment 
pour ADC, adaptés au cas de sous- 
tractions par SBC. 


Exemple 1 


LDA $18 (A5 18) 

SEC (38) 

SBC $DD60 (ED 60 DD) 
STA $18 (85 18) 


Exemple 2 - programme 1 


LDA $18 (A5 18) 

SEC (38) 

SBC $DD60 (ED 60 DD) 
STA $18 (85 18) 

LDA $19 (AS 19) 

SBC #$00 (E9 00) 

STA $19 (85 19) 


Exemple 2 - programme 2 


LDA $18 (AS 18) 

SEC (38) 

SBC $DD60 (ED 60 DD) 

STA $18 (85 18) 

BCS suite du programme (BO 02) 
DEC $19 (C6 19) 

suite du programme 


Exemple 3 


LDA $18 (A5 18) 

SEC (38) 

SBC $DD60 (ED 60 DD) 
STA $18 (85 18) 

LDA $19 (A5 19) 

SBC $DD61 (ED 61 DD) 
STA $19 (85 19) 


Bref retour sur CMP, 
CPX, CPY et les 
autres... 


Dans l’article précédent, nous avions 
dit que la comparaison de ‘quelque 
chose” avec l’un des registres du 
processeur revenait en fait à une 
soustraction virtuelle de ce ‘quelque 
chose” au registre concerné, avec 
positionnement du ‘dernier résultat” 
en conséquence. Îl est clair mainte- 
nant que ce sont certains bits du re- 
gistre d'état qui sont affectés par ces 
opérations de comparaison, comme 
le bit Z, par exemple, dont nous 
avions déjà envisagé l'utilisation en 
sortie d’une comparaison par les ins- 
tructions BEQ et BNE. 


Sont également positionnés par 
CMP, CPX ou CPY les indicateurs N 
et C. N ne donnera toutefois une in- 
formation correcte que s’il n'y à pas 
de débordement. Le bit C est beau- 
coup plus intéressant pour nous: à 
l'issue de la comparaison, il est à 1 si 
le contenu du registre est supérieur 
ou égal au ‘quelque chose”, et à O0 
dans le cas contraire (on retrouve là 
le même comportement de C que 
dans les soustractions). 

En sus de l'égalité ou de l'inégalité, 
on peut donc tester : 

Registre < ‘quelque chose” par 
BCC 


Registre >= ‘quelque chose” par 
BCS 
Registre > ‘quelque chose” par 


BEQ suivi de BCS (on traite d’abord 
l'éventualité d'une égalité par BEQ et 
on ne parvient donc jusqu'à l'instruc- 
tion BCS que si le contenu du regis- 
tre est bien le plus grand). 


La liste suivante donne, en regard de 
chaque instruction déjà traitée dans 
les articles précédents, les indicateurs 
d'état affectés par son exécution, 
lorsque celle-ci exerce effectivement 
une influence sur le registre d'état 
(STA, par exemple, n'a aucune ac- 
tion sur le registre) : 


DA: N,Z 
LDX : N,Z 
LDY : N,Z 
INX : N,Z 
INY:NZ 
DEX : NZ 
DEY : NZ 
TAX: NZ 
TAY: NZ 
TXA:N,Z 

N°Z 
: NZ 
: NZ 
:N2Z 


Exemples d’application 
Exemple 1 


Il s'agit d'une routine d'entrée et sor- 
tie de caractères à laquelle on veut 
donner les caractéristiques suivantes : 
- Le curseur sera un ”—” clignotant. 
- Les lettres de À à Z seront affichées 
en NORMAL. 

- Les chiffres de 1 à 9 seront affichés 
en INVERSE. 

- Tous les autres caractères seront af- 
fichés en FLASH. 

- On pourra sortir de la routine par 
ESC. 

- On refusera en saisie tous les carac- 
tères de contrôle, sauf RETURN et 
les flèches à droite et à gauche. 


Pour analyser cette routine, il faut 
disposer de quelques indications sur 
la table des codes-écran de l'Apple : 

- Le code reçu du clavier correspond 
toujours au code-écran ‘mode nor- 
mal” du caractère correspondant. 

- Les codes "clavier” des caractères 
de contrôle vont de $80 à $9F. 

- Les codes ‘clavier’ des lettres vont 
de $C1 à $DA. 

- Les codes ‘clavier” des chiffres 
vont de $BO à $B9 et il faut leur reti- 
rer $80 pour passer aux codes 
écran” en inverse. 

- Les autres caractères vont de $AO à 
$AF ($40 à retirer pour passer au 
code ‘clignotant”), puis de $BA à 
$BF (toujours $40 à retirer), $CO en 
fait également partie ($80 à retirer 
pour le code ”clignotant”), et enfin 
les codes de $DB à $DF ($80 à 
soustraire). Nous ne nous préoccu- 
pons pas ici des minuscules. 
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© 
œo 
[=] 
=] 


Î 
0300 2 OUT 
0300 3 ADB 
0300 4 CAR 
0300 9 H 
0300 2058FC 6 
0303 204803 7 DEB 
0306 C99B 8 
0308 F03D 9 
0304 C98D 10 
030C F033 11 
030E C988 12 
0310 FO2F 13 
0312 C995 14 
0314 DOGé 15 
0316 ÀA424 1é 
0318 B128 17 
0314 DO25 18 
031C C9A0 19° SS 
031E 90E3 20 
0320 C9B0 21 
0322 B005 22 
0324 38 23 
0325 E940 24 
0327 D018 25 
0329 C9BA 26 So 
032B BO0S 27 
032D 38 28 S4 
032E E980 29 S3 
0330 D00F 30 
0332 C9C0 31 Si 
0334 FO0F7 32 
0336 B00S5 33 
0338 38 4 
0339 E940 35 
033B D004 36 
033D C9DB 37 S2 


Examinons donc ce petit programme, 
en commençant par la fin, c’est-à- 
dire la routine de saisie de caractères 
située aux lignes 42 à 57. 

$CO000 est une adresse réservée au 
caractère reçu du clavier: lorsque 
vous appuyez sur une touche, le 
code clavier” du caractère corres- 
pondant se trouve automatiquement 
stocké à cette adresse. En décimal, 
$C000 est égal à 49152, ou encore 
—16384, et cette valeur doit vous 
dire quelque chose car il y est fait ré- 
férence dans le manuel de l’Apple- 
soft, au chapitre concernant les 
PEEKs et POKEs. On vous explique 
ainsi que vous pouvez utiliser l'ins- 
truction X = PEEK (—-16384) et tes- 
ter ensuite la valeur de X: si X > 
127, une touche a été pressée et son 
code est X, et inversement si X <= 
127. En binaire, 127 = 01111111 et 
les nombres compris entre 127 et 
255 sont donc compris entre 
10000000 et 11111111 en binaire; 
en d’autres termes, si X est supérieur 
à 127, cela revient à dire que le 
contenu de l'adresse $C000 (ou 
—16384) est un nombre binaire né- 
gatif en complément à 2 (bit 7 à 1). 
En assembleur, on détectera donc 
l'enfoncement d’une touche en re- 
gardant si le contenu de $C000 est 
positif ou négatif (touche pressée 
dans ce second cas). Le manuel de 
l’Applesoft fait également référence à 
l'adresse —16368 ($C010) qu'il faut 
toucher” d'une façon ou d’une 
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033F BO0ED 
PS4, 200 
ORG $30 0347 60 
EQU $FDFO 0348 A424 
EPZ $28 0344 B128 
EP2Z $6 034C 48 
EPZ $24 034D A9AD 
JSR $FCS8 034F 9128 
JSR GET 0351 AD00C0 
P #$7B 0354 3005 
BEQ FIN 0354 
CMP #$8D 0357 9128 
BEQ ECRAN 0359 DO0ED 
ÉD PÉSON 035B 8D10C0 
035E 8506 
CMP #$95 0320 
EDY 4. 0363 Ag0é 
LDA (ADB) ,Y 
BNE ECRAN’ | 056$ 
CMP 0 
BCC DEB 
CMP #$B0 
BCS S0 
SBC #$40 
0300- 20 58 
AE 0308- FO 3D 
BCS SI 0310- FO 2F 
+ AE EL &e 
SA Ras 0328- 18 C9 
#$CO 0330- DO 0F 
BEQ S4 0338- 38 E9 
BCS S2 0340- ED 20 
SEC 348- A4 24 
SBC ##40 0350- 28 AD 
BNE ECRAN 0358- 28 DO 
CMP #$DB 360- 68 91 


autre (par un PEEK ou un POKE) 
après avoir lu le clavier par PEEK 
(—-16384), et ce afin de mettre la 
machine en condition de recevoir un 
autre caractère éventuel. On agjira de 
même en assembleur, en adressant, 
d'une façon ou d'une autre, la case- 
mémoire $C010. Ces quelques préci- 
sions nous aideront à comprendre le 
fonctionnement de la routine d’en- 
trée GET. 


Lignes 42 à 44 : on charge dans l’ac- 
cumulateur le caractère situé à la co- 
lonne H dans la ligne courante dont 
l'adresse de base est donnée par 
ADB et on dépose celui-ci au som- 
met de la pile. Cette manipulation 
des adresses dans la page TEXT doit 
vous être maintenant familière après 
les deux premiers articles. 

Lignes 45 et 46 : #$AD est le code- 
écran de ”’—” en mode normal, et 
on l'affiche à la place du caractère 
que l’on vient d’empiler. 

Ligne 47 : on regarde ce qu'il y a à 
l'adresse $C000 par un LDA (on sait 
par ailleurs que LDA exerce une ac- 
tion sur le bit N du registre d'état). 
Ligne 48 : BMI provoquera un bran- 
chement si le bit N est à 1, donc si la 
valeur lue en $CO00 est négative, ce 
qui caractérise le fait qu’une touche a 
été pressée. Dans ce cas, on saute à 
GETI1. 


Ligne 49 à 51: on dépile le carac- 
tère remplacé tout à l'heure par le 


EE 


?—” et on l'affiche de nouveau à sa 


38 BCS S3 

37 ECRAN JSR OUT 

40 JMP DEB 

41 FIN RTS 

42 GET LDY H 

43 LDA CADB),Y 
44 PHA 

45 LDA ##AD 

46 STA (ADB) ,Y 
47 LDA $C000 
48 BMI GETI 

49 PLA 

50 STA (ADB) ,Y 
Si BNE 

92 GETI STA $C010 
53 STA CAR 

54 PLA 

99 STA (ADB) ,Y 
96 LDA CAR 

97 RTS 





place sur l'écran, avant de retourner 
à GET (BNE provoquera toujours le 
branchement car il n'existe pas de 
code-clavier égal à 0). On pourrait 
bien sûr ne remonter que jusqu'à 
LDA #$AD, mais l'exécution d'ins- 
tructions supplémentaires ralentit le 
clignotement du curseur et le rend 
plus perceptible. 

Lignes 52 à 57: une touche a été 
enfoncée et son code se trouve dans 
l'accumulateur. STA $CO010 n'a 
d’autre but que de “libérer” l'Apple 
pour une autre touche. On stocke 
ensuite le caractère en CAR, on 
remet à l'écran le caractère précé- 
demment remplacé par le curseur, et 
on quitte enfin la routine après avoir 
récupéré le caractère saisi au clavier 
dans l’accumulateur. 


Voyons maintenant le reste du pro- 
gramme. 


Ligne 6 : équivalente à HOME. 
Ligne 7 : saisie d’un caractère par 
notre routine personnelle. 

Lignes 8 et 9 : #$9B est le code 
de ESC. Si l'utilisateur vient donc 
d'appuyer sur ESC, on saute à la fin 
de la routine. 

Lignes 10 à 13: si c'est un RE- 
TURN (#$8D) ou une flèche à gau- 
che (#$88), on affiche. 

Lignes 14 et 15: si ce n'est pas 
une flèche à droite (#$95), on saute 
en S5. 

Lignes 16 à 18 : on relit le carac- 
tère qui se trouve sous le curseur 
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pour le ré-afficher (il peut paraître 
plus simple d'augmenter simplement 
H pour déplacer le curseur, mais il 
faudrait alors vérifier par nous- 
mêmes que l’on ne change pas de 
ligne, ce que la routine OUT — 
$FDFO fera très bien à notre 
place...). 


Lignes 19 et 20 : si l'accumulateur 
contient une valeur inférieure à 
#$A0, on à tapé un caractère de 
contrôle qui se trouve donc rejeté 
par la demande d’une autre saisie 
(BCC DEB). 

Lignes 21 et 22 : si le code est su- 
périeur ou égal à #$B0, BCS bran- 
che en SC. 

Lignes 23 à 25 : c’est autre chose 
qu'un chiffre ou une lettre : on retire 
#$40 au code pour l'afficher en 
FLASH. Il faut absolument faire SEC 
avant SBC puisque l'on sait juste- 
ment que C=0 (BCS branche si 
C=1 et il ny a pas de branche- 
ment). 

Lignes 26 à 30 : pour un code >= 
#$BA, on passe en S1. Sinon, c'est 
un chiffre et on retire #$80 pour un 
affichage en inverse (même remar- 
que que ci-dessus pour SEC). 

Lignes 31 à 36 : si c'est #$C0, on 
remonte à S4 afin d'obtenir un affi- 
chage clignotant (on pourrait aussi 
passer directement à S3 puisque le 
bit C est mis à 1 lorsque l’accumula- 
teur est supérieur ou égal à la valeur 
à laquelle on le compare). Si c’est 
supérieur à #$C0 (l'égalité est déjà 
traitée), on passe à S2. Sinon, c’est 
encore un caractère à afficher en 
mode clignotant et on retire donc 


#$40. 

Lignes 37 à 40 : si c'est supérieur 
ou égal à #$DB, c'est un caractère 
situé au-dessus des lettres de l’alpha- 
bet et on saute à S3 pour un affi- 
chage en clignotant (on est sûr que 
C=1 puisque BCS provoque le 
branchement). Dans le cas contraire, 
c'est une lettre et on l'affiche sans 
modification du code (mode normal). 
Après manipulation éventuelle du 
code, vous aurez constaté que l'on 
arrive toujours à la ligne 39, pour af- 
fichage par la routine standard du 


Exemple 2 - Lisa 1.5 


0300 Î 

0300 2 Ci 
0300 3 C2 
0300 4 VS 
0300 S TB 
0300 6 STOP 
0300 7  TVUS 
0300 8 TTB 
0300 9 PF 
0300 ÀA900 10 

0302 8508 11 

0304 8509 12 

0306 ÀA569 13 

0308 8518 14 

03084 À5 15 

030C 8519 16 

O30E ÀA519 17 S00 
0310 CSéC 18 
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moniteur puis retour en début de 
routine. 


Pour tester le fonctionnement de ce 
programme après en avoir rentré le 
code en mémoire ou l'avoir chargé à 
partir d’une disquette, il suffit de 
taper CALL 768 à partir du BASIC. 


Exemple 2 


Ce programme peut être un utilitaire, 
assez rudimentaire il est vrai, destiné 
à vous indiquer, après l'exécution 
d'un programme en Applesoft, si 
telle ou telle variable a bien été utili- 
sée, ou pour le moins initialisée, au 
cours de cette exécution. Il ne suffit 
pas en effet qu’existe une instruction 
A=2 pour que la variable A soit ef- 
fectivement créée en mémoire, il faut 
en outre que cette instruction soit 
réellement exécutée dans le déroule- 
ment du programme. L'intérêt ”’utili- 
taire” de notre routine pourrait donc 
consister à détecter des séquences 
d'instructions par lesquelles on ne 
passe pas lors d'un RUN et qui ris- 
quent fort d’être inutiles. Ce n'est là 
cependant qu'un aspect secondaire, 
le but essentiel restant toujours d'il- 
lustrer le mode d'emploi des instruc- 
tions de l'assembleur que nous 
connaissons maintenant. 


Ïl nous faut d’abord rappeler briève- 
ment la façon dont sont stockées les 
variables en mémoire. Il existe deux 
grandes catégories de variables : 

- les variables simples, stockées dans 
une zone dont l'adresse de début 
nous est donnée aux adresses $69 et 
$6A, dans l'ordre poids faible/poids 
fort ($69-$6A ‘pointe’ vers le début 
de la zone des variables simples) et 
l'adresse de fin aux adresses $6B- 
$6C; 


- les tableaux, dont le pointeur de 
début de zone est stocké en $6B- 
$6C (la zone des tableaux 
commence donc juste après la zone 
des variables simples) et le pointeur 
de fin en $6D-$6E. 

Dans les zones de stockage des va- 
riables, les noms de variables sont 
toujours codés sur deux octets selon 
les règles suivantes, qu'il s'agisse de 


0312 DOûé 
0314 AS! 
ORG #$300 0316 CSéB 
EP2Z $6 0318 FO2À 
EP2Z $7 0314 4000 
EPZ $69 031C B118 
PZ $6B O31E CS0é 
EPZ $6D 0320 D014 
EP2Z $8 0322 C8 
EP2 $9 0323 B118 
EP2Z $18 0325 C507 
#0 0327 DOOD 
STA TUS 0329 Eé08 
STA TTB 032B À56B 
LDA VS 032D 8518 
STA P 032F ÀS56C 
LDA VS+i 0331 851 
STA P+1 333 4C4403 
LD£ P+1 0336 A5S1i 
CMP TB+1 0338 1 


tableaux ou de variables simples : 

- code ASCII standard (celui qui est 
retourné par la fonction ASC) si la 
variable est réelle : par exemple, sa- 
chant que le code ASCII de A est 65 
en décimal, soit $41, À serait codé 
41 00 et AA serait codé 41 41. 

- code ASCII pour la première lettre 
et code ASCII augmenté de $80 (soit 
128) pour la seconde si la variable 
est de tupe ‘chaîne de caractères” : 
par exemple 41 80 pour A$ et 41 
C1 pour AA$. 

- code ASCII augmenté de $80 pour 
les deux lettres si la variable est de 
type entier” : C1 80 pour A% et C1 
C1 pour AA%. 

Une variable simple occupe toujours 
7 octets. Pour un tableau, le nombre 
d'octets occupés est stocké en mé- 
moire juste après le nom du tableau. 


Le principe d'utilisation de la routine 
est le suivant : 

- On place aux adresses $6 et $7 les 
deux octets correspondant au nom 
de la variable examinée, codés selon 
les règles en vigueur dans les zones 
des variables, puis on appelle la rou- 
tine par un CALL 768. 

- Celle-ci va rechercher dans la zone 
des variables simples, puis dans celle 
des tableaux, la présence éventuelle 
d'une variable stockée sous le même 
nom. Pour cette recherche, on utili- 
sera l’adressage indirect indexé par 
Y, avec pour adresse de base les dif- 
férents pointeurs de zone. Si on 
trouve dans la première zone, on 
mettra 1 à l'adresse $8, et 1 à 
l'adresse $9 si on trouve dans la se- 
conde. 

- Pour afficher le résultat de la re- 
cherche, on utilise une routine du 
moniteur, commençant à l'adresse 
$F940, qui affiche à l'écran le 
contenu des registres YŸ et X sous 
forme de 4 chiffres hexadécimaux. 
On voudrait donc voir 0000 si la va- 
riable n'existe pas du tout, 0100 si 
elle existe uniquement dans les varia- 
bles simples, 0001 si elle n'existe que 
dans les tableaux, et 0101 si elle 
existe dans les deux catégories de 
variables. 


19 BNE S0 

20 LDA P 

21 CMP TB 

22 BEQ S20 
23 S0 LDY 

24 LDA CP) ,Y 
25 CMP 

36 BNE S1 

27 INY 

28 LDA CP),Y 
29 CMP C2 

30 BNE Si 

31 INC TUS 

32 LDA TB 

33 STA P 

34 LDA TB+1 
5 STA P+1 

36 JMP S20 
37 Si L 

38 CLC 
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E#4 
£: 


LA 
# 


PÉREE PRET EAP REEETEETENTES 


0339 6907 39 
033B 8518 40 
033D 9002 41 
033F Eé19 42 
0341 4C0E03 43 Sa 
0344 A519 44  S20 
0346 CSéE 45 
0348 D00é 6 

3 518 47 
034C C56D 8 
034E FO11i 49 
0350 A000 90 S2 
0352 B118 S1 
0354 C506 92 
0356 DOii 93 
0358 C8 954 
0359 B118 55 
035B C507 96 
035D DO0À 97 
035F Eé09 58 
0361 408 57 FIN 
0363 À609 60 
0365 2040F9 61 
0368 60 2 
0369 A002 63 S3 
036B A518 64 
036D 18 65 
036E 7118 éé 
0370 4 67 


Reprenons donc tout cela plus en 
détail. 


Lignes 10 à 16 : mise à O de nos 
deux drapeaux "existe / n'existe pas” 
et transfert dans une variable de tra- 
vail P (adresses $18-$19) du poin- 
teur de début de la zone des varia- 
bles simples. Le poids faible (VS) 
viendra en P ($18) et le poids fort 
(VS+1) en P+1 ($19). 

Lignes 17 à 22 : on veut savoir si 
on est arrivé à la fin de la zone des 
variables simples. (On regarde 
d'abord si l’octet de poids fort, le 
plus significatif, P+1, est égal au 
poids fort du pointeur de début de la 
zone des tableaux TB+1 : si ce n’est 
pas le cas, on ne s'intéresse pas au 
poids faible. Sinon, on effectue le 
même contrôle pour les poids faibles 
P et TB; s’il y a égalité, on saute en 
S20. 

Lignes 23 à 26 : on charge dans 
laccumulateur le code de la pre- 
mière lettre du nom stocké dans la 
zone des variables. P/P+1 doit en 
effet toujours contenir l'adresse de 
début des informations pour une va- 
riable donnée (la première stockée 
en l'occurrence si on commence en 
début de zone). En prenant Y=0, on 
accède par LDA(P),Y à la première 
information pour la variable en ques- 
tion, soit la première lettre de son 
nom, que l’on compare ensuite à la 
première lettre du nom cherché (C1). 
Si elles sont différentes, on passe en 
S1 


Lignes 27 à 30: même principe 
pour la seconde lettre, en prenant 
cette fois Y=1. 

Lignes 31 à 36 : on a trouvé ! TVS 
passe de 0 à 1, suite au INC, et l’on 
met en P/P+1 le pointeur de début 
de la zone des tableaux avant de 
sauter à S20. 


Lignes 37 à 43: on n'a pas 





trouvé ! Il faudrait donc aller voir ce 
qu'il en est pour la variable stockée 
suivante, s’il y en a encore. Pour ce 
faire, nous devons mettre à jour 
notre pointeur de début d’informa- 
tions pour une variable, P/P+1. On 
retrouve là un exemple typique d’uti- 
lisation de ADC: on ajoute 7 au 
poids faible P (la variable que nous 
venons de traiter occupe 7 octets et 
la suivante éventuelle commence 
donc 7 octets plus loin), si cette addi- 
tion ne produit pas de retenue exté- 
rieure (BCC) on laisse le poids fort 
inchangé, sinon il doit être incré- 
menté. On retourne ensuite au début 
de la recherche, en vérifiant tout 
d’abord que l’on n’est pas encore en 
fin de zone (on passe à la recherche 
dans la zone des tableaux si le test 
est positif). 


Lignes 44 à 49 : on va maintenant 
chercher dans les tableaux. On re- 
garde de suite si la zone des tableaux 
n'est pas terminée (P+1 = STOP+1 
et P = STOP). Si elle l'est, on passe 
à FIN. 

Lignes 50 à 57 : même principe de 
recherche du nom que précédem- 
ment. À partir du pointeur sur le 
début des informations, Y=0 nous 
donne accès à la première lettre du 
nom stocké et Y=1 nous donne 
accès à la seconde. 

Lignes 58 à 62 : on a trouvé ! TTB 
passe de 0 à 1, puis on charge Y et 
X respectivement avec TUS et TTB 
pour obtenir l'affichage voulu par 
$F940 avant de quitter la routine. 
Lignes 63 à on na pas 
trouvé ! Là encore, il faut mettre à 
jour le pointeur de début des infor- 
mations pour la variable suivante, 
mais c'est un peu plus complexe que 
pour les variables simples, car le 
nombre d'octets à ajouter n’est pas 
une constante. Nous savons seule- 





ADC #$7 371 C8 68 INY 
STA 0372 4519 69 LDA P+1 
BCC S4 0374 7118 70 ADC (P).Y 
CEE EN 
LDA P+1 0379 8518 73 ST4 P 
DE Arr 037B 4C4403 74 P S20 
LDA 
ae SIN Récapitulation : exemple 2 
LDY #0 
LDA CP),Y 0300- A9 00 85 08 85 09 AS 69 
CMP C1 0308- 85 18 ÀS A 85 19 À5 19 
ce s3 0310- C5 6C DO Dé À5 18 CS éB 
0318- F0 A0 00 Bi 18 C5 06 
LDA €P2,Y 0320- DO 14 C8 Bi 18 CS 07 DO 
QE £3 0328- 0D Ed 08 A5 6B #5 18 À5 
Fe 0330- éC 85 19 4C 44 03 À5 18 
JNg UE 0338- 18 4 07 85 18 90 02 Ed 
LDX TTB 0340- 19 4C 0E 03 À5 19 CS 6E 
JSR $F940 0348- DO 06 ÀS 18 C5 6D FO 11 
RTS 0350- AO 00 B1 18 C5 0é DO 11 
LDY #2 0358- C8 Bi 18 C5 07 DO 0À Eé 
LDA 0360- 09 Ad 08 A6 09 20 40 F9 
CLC 368- 60 A0 02 A5 18 18 71 18 
mo [RE SENS ANSr 


ment qu'il se trouve derrière les deux 
lettres du nom, dans l'ordre poids 
faible/poids fort, et nous devons utili- 
ser la même technique d’adressage 
pour le lire. Pour Y=2, on récupère 
le poids faible du nombre d'octets 
occupés par le tableau, que l'on peut 
ajouter à P par ADC. Il ne faut pas 
toutefois ranger de suite le résultat en 
P car on modifierait ainsi l’adresse- 
base de notre adressage et nous ne 
pourrions plus aller lire le poids fort 
du nombre d’octets, qui est récupé- 
rable avec la valeur 3 pour Y mais 
sous réserve que l’adresse-base soit 
toujours correcte. C’est pourquoi on 
empile provisoirement le résultat du 
calcul après ADC. On peut alors lire 
le poids fort du nombre d'octets et 
l'ajouter à P+1 par ADC (sans CLC 
préalable cette fois puisqu'il peut y 
avoir une retenue provenant de l'ad- 
dition précédente à prendre en 
compte). Le résultat de l'addition des 
poids forts est remis en P+1, celui 
de l'addition des poids faibles est en- 
suite retiré du sommet de la pile et 
remis en P : le pointeur est à jour et 
l'on retourne au début de la procé- 
dure de recherche. 


Pour utiliser cette routine, la mé- 
thode la plus simple nous semble 
être la suivante : 
- Après la fin d'exécution du pro- 
gramme Applesoft, passer en moni- 
teur par CALL —151. 
- Faire un BLOAD du code-objet de 
la routine s'il ne se trouve pas déjà 
en mémoire. 
- Mettre aux adresses $6-$7 le code 
du nom de la variable cherchée (en 
tapant par exemple 6: 41 C1 ”Re- 
turn” si vous vous intéressez à la va- 
riable AA$). 
- Lancer la routine par 300G suivi de 
“Return”. 

Æ 
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programmer 
un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 

qui “tourneront” sur votre machine. 

LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actualité 
et vous fournit trucs, astuces et idées 





BULLETIN 


pour mieux programmer... ; 
Pour être sûr de ne rater aucun numéro Pt OO 
et pour recevoir LIST chez vous, K (service abonnement) 
abonnez-vous | 5, place du Colonel-Fabien, 

*.1 75491 Paris Cedex 10 

Nom: 


Adresse: 


Code postal:L 11111} Pays: 


LIS O G R AMMER # Veuillez m'abonner pour 10 numéros au prix 


jour nauxX : avantageux de 160 F* au lieu de 200 F. Je fais ainsi 

tre ma +. une économie de 40 F sur le prix de vente au numéro. 
votre +. Je joins mon règlement indispensable libellé 

20F chez » à l'ordre de LIST. 


* + Belgique: 1330 FB: Suisse: 50 FS; Canada: 30 $C: 
autres pays : 210 FF 
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Le BASICIUM 


Gérard Michel 


Pom's vous propose sous ce nom 
une disquette regroupant un certain 
nombre de routines et d'utilitaires 
destinés à faciliter la gestion d’écran 
et la saisie de données réalisées par 
vos programmes en Applesoft. 


Le BASICIUM reprend sous une 
forme plus élaborée et plus intégrée 
la gestion de masques et l'INPUT gé- 
néralisé de tableaux déjà présentés 
dans ces pages, complétés par des 
instructions de gestion de messages. 
Il permet notamment une prépara- 
tion indépendante des opérations de 
saisie-clavier, d'affichage et d’impres- 
sion, et une réduction de la taille des 
programmes Applesoft au moyen 
d'instructions synthétiques. 


Ainsi, le petit programme listé ci- 
après à titre d'illustration suffit pour 
réaliser les traitements suivants : 


e Affichage de l'écran de présenta- 
tion ECRAN 1. 


Ecran 1 
LIL] 
* * + + 
+ + 
+ + + 
RHHKHEHX HÉMX XX X 
* * + + + 
* * x L2 + * 
KHHHE + XX RKXX XX 


EH HE DE DE DE DE EH DE DE DE NE DEN NE EE DE DE DE DE DE EE DE EE 


=== === 


=== }# 


*++ EXEMPLE D'UTILISATION ++% 


Programme de démonstration 50 


BASICIUM 
10 TEXT : HOME 


HHXHX HHHX HEX KXKX HÉX 





e Saisie de trois groupes de valeurs 
dans un tableau intermédiaire Z$, 
à l'intérieur du cadre donné par 
ECRAN 2, avec  tabulation, 
contrôle sur la longueur, vérifica- 
tion d'un type alphanumérique 
pour les valeurs de la première co- 
lonne et numérique pour celles de 
la seconde, déplacement d'une 
zone à l’autre dans les deux 
sens. 

e Demande de confirmation après 
chaque écran de saisie, avec 
contrôle d'une réponse O ou N, et 
modification dans la négative. 

e Consultation à l’écran des trois ta- 
bleaux, avec possibilité de hard- 
copy sur demande dans la mesure 
où l'imprimante est déclarée en 
service. 

e Restitution des données sur papier 
sous la forme de l’état TABLEAU. 


Dans la liste du programme, les ins- 
tructions du BASICIUM sont repé- 


OK X % X hs 


= + x 
+++ 


rées par le caractère ”]”. Ce système 
est conçu pour un Apple //e où un 
Apple II+ 48K. Il est compatible 
avec le DOS et toutes les instructions 
standard” de l’Applesoft. 


Les différents utilitaires, masques et 
routines ont également été adaptés 
pour une utilisation avec un Apple 
lle équipé de la carte 80 colonnes 
Apple //e. On peut ainsi disposer 
d'un BASICIUM ‘80 colonnes” doté 
des mêmes possibilités et instructions 
que la version 40 colonnes (utilisa- 
tion de masques, de tableaux de va- 
riables, hard-copy, impressions para- 
métrées, gestion de messages...). 
Cette seconde version est disponible 
sur la même disquette. 


Pom's vous propose l’ensemble du 
système au prix de 150 francs, docu- 
mentation comprise. 


Ecran 2 


PRES IIITIMCSELÉLSELSLHSIÉÉLÉÈTELISECIT_ RÉ È TE 


‘ TABLEAU DE DONNEES ‘ 


LAPS ILESÉÉÉTÉLI LILI PLTLLTITISIÉEREC ÈC ET 


VALEUR 





FOR I = 0 TO 2: READ ME$(I1): NEXT : 
GOTO 70 


60 DATA SAISIE CONFIRMEE,’RETURN’ OÙ ‘ 
?* POUR HARD-COPY, IMPRIMANTE BRAN 


20 HIMEM: 34680 CHEE 
25 BL$ = * ” 65 VTAB 23: PRINT DI$"PR#i": RETURN 
30 D$ = CHR$ (4):D1$ = CHR$ (13) + D$: 70 :]1A1: FOR Z = 1 TO 5000: NEXT :NS = 1 


PRINT D$"BLOAD POBAS-VAR" : POKE 80 :])42:]1Z: IF PEEK (é) THEN 70 

37191, PEEK (43634): POKE 37192, 90 :J1GMEO: IF PEEK (6) THEN 110 

PEEK (43635): PRINT D#$"BLOAD POBA 100 :1MZ: IF PEEK (é) THEN 70 

S-B": POKE 37254, PEEK (43634): P 105 GOTO 90 

OKE 37255, PEEK (43635) 110 FOR I = O0 TO 13:2Z#(NS,1) = 2$(1):] 
40 DIM 2#(13),Y$#(5),22$(3,13) F: NEXT :NS = NS + 1: IF NS < 4T 
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HEN 80 “":]143 
120 FOR NN = 1 TO 3: FOR I = O0 TO 13:2$ 160 FOR I = O0 TO 12 STEP 2: FOR J= QT 

C1) = ZZS(NN,I): NEXT :1]1PZ:]J)RME1: 0 4 STEP 2:JJ = J+(J< 2) - (J 

IF NOT PEEK (6) THEN 140 > 2):Y#CJ) = 22B(JJ,I1):Y#SCJ + 1) 
130 :1QME2: IF PEEK (6) THEN POKE 34,2 = Z2H(JJ,I + 1):Y#$CJ) = RIGHTS « 

4: GOSUB 65:]1H: PRINT Di&"PRHO": BLS + Y#(J),13):Y8SCJ + 1) =  RIGH 

POKE 34,1:1]A2 T$ CBL$S + Y#CJ + 1),10):)F: NEXT 
140 NEXT :JGME2: IF NOT PEEK (é) THEN JPY 

TEXT : HOME : END 170 GOSUB 46S:1CC: PRINT D$"PRH0'":])A3: N 

150 :1A3: GOSUB 65:])CA:1CE:]CB:]CE:]CF:] EXT 

CD:]CG:]CD:]CF:1CD: PRINT D$"PR#O 180 GOSUB 65:]CD:1CA: PRINT Di$"PR#O" 

Tableau 

XX EE EX M € XX EM KE 6 JE 6 JE XXE JE 6 6 JE HE 36 JE EE JE JE 6 6 JE DE EE JE 3 DE 6 JE EE JE 6 JE 36 EE 36 6 M6 3 36 DE 6 6 6 3 36 6 36 6 6 € 6 6 6 6 6 6 € Xe 
* # + + 
x S À 1 S 1 E NO 1 % SA I SIE NO 2 * SAISIE NO 3 * 
* x x + 
KE QE D x 
* Û x ' x ! # 
% VALEUR 1 ! VALEUR 2 * VALEUR îïi ! VALEUR 2 *x VALEUR 1 ! VALEUR 2  * 
x ! x ! x ! x 
a —— ——————— em me * 
* ' x 1 x 1 x 
* VALEUR O0! OOOxUALEUR 0 - T2! 000.22xVALEUR 0 - T3 ! 000.33 * 
Li VALEUR 1! 111%XVUALEUR 1 - T2! 111.22XVALEUR 1 - T3 ! 111.33 + 
* VALEUR 2! 222#xVALEUR 2 - T2! 222.22#VALEUR 2 - T3 ! 222.33 * 
* VALEUR 3! 333*xVALEUR 3 - T2! 333.22#VALEUR 3 - T3 ! 333.33 * 
# VALEUR 4! 444xVALEUR 4 - T2! 444,.22%xVALEUR 4 - T3 ! 444,33 * 
* VALEUR 5! D995XVALEUR 5 - T2! 999.22*VALEUR 5 -— T3 ! 555.33 * 
* VALEUR 6! Gé6XVALEUR 6 —- T2! 6éé.22#xVALEUR 6 - T3 ! 666.33 * 
% ' # 1 x 1 %- 


EEK EE 6 NE JE DE EE 6 6 JE 6 6 6 EE JE € EEE DE EE DE HE DE DE DE JE DE DE JE JE JE 36 36 € JE JE DE DE JE JE EE JE 36 JE DE JE JE JE JE 6 36 36 DE KE DE DE EE EEE EE EE 


NDLR : tous les prix en francs indi- 
qués dans cet article sont TTC, sauf 
spécification contraire. Chaque fois 
que les coordonnées d’un fournisseur 
sont connues, nous les indiquons en 
fin d'article. Inutile par conséquent 
de nous appeler pour les demander 
au téléphone. Merci. 


En vedette: les logiciels intégrés. 
C'est vrai, dans la galaxie micro-in- 
formatique, on ne jure plus que par 
les fenêtres et les programmes inté- 
grés. À preuve, le succès de Lotus 1- 
2-3, un logiciel pas spécialement bon 
marché, installé en tête dans la liste 
des best-sellers. Seulement, jusqu’à 
aujourd'hui, pour travailler avec un 
de ces programmes intégrés, il fallait 
disposer de 16 bits, et donc d’un 
IBM PC/XT ou compatible. Réjouis- 
sons-nous, voici que l'Apple // ouvre 
lui aussi les fenêtres. 


Des fenêtres pour 
l'Apple // 


Avec tout d'abord Appleworks, né- 
cessitant un Apple //c ou //e avec 
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Micro-informations 
Jean-Michel Gourêévitch 


128K, et disponible aussi pour l'Ap- 
ple //! sous le nom de "3 E-Z 
Pieces”. Avec Appleworks, on n’est 
pas tout à fait dans l'inconnu. C’est 
la réunion de trois programmes en 
un : un traitement de texte, une base 
de données et un tableur. Le tableur 
ne dépaysera guère les utilisateurs de 
Visicalc, dont les formules de calcul 
sont fort voisines. La base de don- 
nées à un air de déjà vu. Et pour 
cause, car il s’agit de Quick File //. 
Son auteur, Rupert Lissner, est aussi 
celui d’Appleworks. Seul le traite- 
ment de texte est inédit. Une de ses 
nouveautés est, quant à elle, plus gé- 
nante : les options d'impression sont 
formulées en inches et non plus en 
colonnes. Il y a des calculatrices qui 
vont chauffer. 


Premier avantage de ce programme 
exceptionnel : sa facilité d'utilisation. 
Les commandes sont en effet les 
mêmes pour toutes les opérations 
importantes sur les trois applications. 
La pression simultanée des touches 
"Pomme ouverte” et ‘’H” permet 
une recopie hard” de l'écran sur 


imprimante. Et des tableaux explica- 
tifs sont accessibles dans chaque ap- 
plication avec ‘Pomme ouverte” et 
7?”. Plus besoin de documentation ! 


Deuxième avantage, le plus impor- 
tant, c'est l'intégration. On peut par 
exemple commencer une lettre avec 
le traitement de texte, aller chercher 
un tableau créé avec le tableur, reve- 
nir à la lettre et y insérer le tableau. 
On peut encore interrompre la rédac- 
tion d’un rapport, presser ‘Pomme 
Ouverte-Q”, et aller chercher une 
note déposée antérieurement sur le 
desktop” (le plan de travail) et, une 
fois la note consultée, revenir au rap- 
port précisément là où on l'avait 
quitté. On peut même utiliser des ta- 
bleaux créés avec Visicalc ou des 
textes écrits avec Applewriter (à 
condition de les avoir convertis en 
ProDOS à l’aide de la disquette utili- 
taire ProDOS, car Appleworks est 
écrit pour ce système d'exploitation). 


Particulièrement remarquable, la pré- 
sence de nombreuses sécurités qui 
permettent d'éviter d'écraser un dos- 
(comme je 


sier par inadvertance 











CO ROSE 


” 
Li) 


FE: 


ÉLIRE IAE SANS LEE 


viens de le faire avec le début de cet 
article en tapant en Applewriter Ctrl- 
S au lieu de Ctri-L!). Ainsi, quand 
on choisit l'option de quitter le pro- 
gramme, Appleworks affiche Do 
you really want this ?” (Le voulez- 
vous vraiment ?) et n'accepte la 
commande qu'après un Yes” expli- 
cite. Appleworks est à coup sûr l’un 
des premiers de ces programmes qui 
rendront la vie plus facile à tous les 
utilisateurs de micros. Il est vendu 
aux Etats-Unis 395 dollars et sera 
traduit et vendu par Apple. 


Sortie dans sa version française à 
Apple Expo, Jane transforme votre 
Apple //c ou //e en mini-Macintosh, 
avec avant tout le souci d’être facile- 
ment utilisable par tous, à l’aide 
entre autres du célèbre ‘couper et 
coller” qui fait le succès du Macin- 
tosh. Jane offre les programmes Ja- 
neWrite, JaneCalc et JaneList en un 
programme intégré pouvant fonction- 
ner avec la souris Apple, la souris 
Arktronics, un joystick ou le Koala- 
pad. Bien entendu, non seulement 
les informations peuvent passer 
d'une application à l’autre, mais les 
trois logiciels-en-un utilisent la même 
syntaxe autant que possible, ce qui 
réduit bien évidemment le temps 
d'apprentissage. Les importateurs de 
Jane ont en outre bon goût, ce qui 
ne gâche rien : leurs hôtesses étaient 
manifestement parmi les plus mi- 
gnonnes à Apple Expo … Jane, ainsi 
d’ailleurs qu'Appleworks, fera pro- 
chainement l’objet d'un banc d'essai 
approfondi dans Pom's. 


Jane est fournie dans un dossier ri- 
gide, avec un manuel détaillé et qua- 
tre disquettes : Demo, Systems, Data 
et Help. Ces disquettes sont de cou- 
leurs différentes, ce qui facilite leur 
repérage. Initialement prévue pour 
fonctionner seulement avec la souris 
Arktronics, Jane utilise à présent les 
souris Apple //c et //e, et se vend 
donc séparément de ces outils. Ceci 
à permis de baisser son prix à moins 
de 1.500 FF. 


Selon le même principe, ARTSCI 
propose aux Etats Unis ”The Magic 
Office System”. Il s’agit d’une 
combinaison de Magic Window, Ma- 
giCalc et Magic Words, permettant 
de couper et coller” (l'expression 
fait aujourd’hui fureur dans le lan- 
gage des micros) des informations 
entre les programmes: un tableur, 
un traitement de textes et une base 
de données classiques. 


Même chose où presque avec ”4 in 
1”, qui utilise un langage commun et 
des procédures identiques pour un 
seul programme et quatre applica- 
tions. Une production de Softsmith, 
vendue 129 dollars. 


En France, BIP The 


importe 





Bridge”, qui permet de faire le pont 
entre un fichier PFS, un traitement 
de texte (Applewriter ou Magic Win- 
dow) et un tableur (Magicalc ou Visi- 
calc). Prix : 506 F HT. 


Et en Grande Bretagne, Dark Star a 
conçu une carte s'insérant dans un 
des slots de l'Apple //e, la Snapshot 
Shuttle, qui permet d'interrompre 
un programme par une pression sur 
un interrupteur, de faire tourner un 
autre programme, puis de revenir en 
actionnant à nouveau l'interrupteur 
au premier programme, au point 
exact où on l'avait laissé. L'utilisation 
du Snapshot exige au moins un lec- 
teur et 128K de mémoire. Prix : 115 
livres. 


Plus classique 


Il y a encore de la place pour les lo- 
giciels non intégrés. À preuve Epis- 
tole, un traitement de texte français, 
qui-calcule (utile pour factures, devis, 
…), dispose d'un mailing intégré et 
permet l'intégration de tableaux créés 
avec Visicalc, Multiplan ou Magicalc. 
La dernière édition de ce logiciel pro- 
posé par Version Soft est réalisée 
sous ProDOS. Prix : 2372 F. 


Quant à Homeword, c'est un traite- 
ment de textes utilisant cette autre fa- 
cilité de la micro-informatique : les 
icônes. Le bas de l'écran est illustré 
de dessins représentant les applica- 
tions. Pour une utilisation domesti- 
que, Homeword est particulièrement 
agréable. Comme pour tous les logi- 
ciels non encore francisés, attention 
aux accents ! Homeword est conçu 
par Sierra On Line et vendu outre- 
Atlantique pour 70 dollars. 


Pour les amateurs d’exotisme, il 
existe aussi un traitement de texte en 
chinois doté de 400 caractères d’un 
vocabulaire de base, avec possibilités 
d'extension. Réalisé par Dune Asso- 
ciates; prix : 70 dollars. 


Pour les applications ”’sérieuses”, on 
peut relier à l'Apple Il un disque dur 
Intec 505 (10 mégas de capacité) à 
2700 livres, ce qui n’est pas donné. 
Coûteux également, the Genius” de 
Micro Display Systems, un moniteur 
permettant d'afficher une page en- 
tière de texte : 57 lignes de caractè- 
res de 7x12 pixels, disponible en noir 
et blanc, vert ou ambre. Livré avec 
une carte d'interface (à placer dans 
le slot 3), ce génie permet une utili- 
sation plus complète de l'Apple au 
bureau. Prix : 1250 dollars. 


Des imprimantes 


Décidément, Apple ne délaisse guère 
le terrain de l'impression. A la fin de 
l'été sortira la Scribe. Conçue 
comme adjonction à l'Apple //c, la 
Scribe ne coûtera que 299 dollars, et 
imprimera en couleurs. Eh oui, en 


couleurs, grâce à un ruban et selon 
le principe du transfert thermique. La 
Scribe imprimera sur n'importe quel 
papier. Un prix très attractif, mais des 
rubans onéreux qui la rendent peu 
adaptée à une utilisation intensive. 


Autre nouveauté : la Think Jet de 
Hewlett Packard. Portable, à jet 
d'encre, imprimant des caractères en 
12 langues, avec en outre des possi- 
bilités graphiques. Et surtout peu 
bruyante (la tête d'impression ne 
touche jamais le papier). Prix de 
vente aux USA : 500 dollars. Dispo- 
nible en France à la fin de l’année. 


Vu à Apple Expo: des imprimantes 
Canon présentées par ASAP, dans 
différents registres. Les matricielles 
avec la PW 1080A (80 colonnes, 
160 cps) à 5.600 F HT et la PW 
1156A (156 colonnes, 160 cps) à 
8.000 F HT. Une imprimante à jet 
d'encre couleur, modèle PJ 1080A, 
80 colonnes et 37 cps. à 7.500 F 
HT. 


À remarquer encore une interface 
série, donc utilisable pour l'Imagewri- 
ter d'Apple, permettant en appuyant 
sur une touche spéciale toute recopie 
d'écran, c'est la Print It de Text- 
Print, vendue 199 dollars. 


Enfin, un logiciel particulièrement in- 
téressant, conçu notamment pour 
l'Imagewriter, permet d'imprimer 
n'importe quelle image écran de 
l'Apple, en couleurs, et en zoomant 
sur des détails. C’est le Printogra- 
pher de Roger Wagner Publishing 
Inc., à 40 dollars. 


Un Apple à tout faire 


Jadis, il fallait acheter une carte Z80 
pour faire tourner des programmes 
CP/M et, parfois, on vous offrait le 
logiciel. Désormais, c'est Micropro, 
l'éditeur de Wordstar, qui offre aux 
Etats Unis une carte CP/M à tout 
acheteur du plus célèbre des traite- 
ments de texte |! Avec l'Apple, c'est 
vrai, on peut tout faire: connaître 
l'heure grâce à la carte Time Kit de 
Glanmire (un tout petit circuit qui 
s'enfiche sur la prise de jeux), ven- 
due 1150 francs par Micro-Périph 
(compatible ProDOS et Pascal), ou 
gérer un carnet de rendez-vous avec 
Time Trax, un système de ‘gestion 
du temps” livré avec un module hor- 
loge. Une création de Creative Peri- 
pherals Unlimited vendue 100 dol- 
lars. 


On peut aussi évaluer avec l'Apple 
sa vie de couple. ’Friends or Lovers” 
de Softsmith Corp doit permettre aux 
couples ‘d'explorer leur relation”. 
Les impétrants peuvent déterminer 
s'ils partagent les mêmes intérêts. 
Tout ça pour 30 dollars, c'est vrai- 
ment donné, moins cher même 
qu'un divorce au Mexique 
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Macintosh 


Vu le nombre de plus en plus grand 
des lecteurs de Pom's utilisant ce 
produit sympathique, nous vous of- 
frons dès ce numéro une rubrique 
Macintosh spécialisée, dont l'impor- 
tance croîtra avec le temps. 


Apple //c 


La revue A+, dans son numéro de 
juin, publie une liste des logiciels 
tournant sur le nouvel Apple. Car, 
attention, la compatibilité n’est pas 
aussi totale qu’on le souhaiterait avec 
les anciens programmes des autres 
Apple IL Voir à ce titre l’article de 
Guy Lapautre. 


Epistole (voir plus haut) est déjà 
adapté et tourne avec la souris du 
nouvel Apple. A noter également 
une extension pour le //c, le cricket” 
de Street Electronics, qui lui ajoute 
une voix de femme, une voix de 
robot, des effets sonores, des possibi- 
lités stéréo et en prime une horloge ! 
Pas mal pour un ordinateur qu'on di- 
sait fermé”. L'imagination des fabri- 
cants de périphériques n'est décidé- 
ment pas en panne. 


La radio communication 
avec l’Apple 


Transmettre des messages en radio- 
télégraphie, en recevoir, ou décoder 
les depêches radio transmises par les 
agences de presse mondiales, c’est 
possible avec l'Apple. Et avec aussi 
quelques efforts, car les interfaces et 
logiciels ne sont pas importés actuel- 
lement. Avec la diffusion de nou- 
veaux Apple et notamment la sortie 
du //c, et la vogue de la communica- 
tion, tout pourrait changer... 


Les messages radio sont en effet 
transmis soit en phonie (on les reçoit 
en clair sur un récepteur), soit en 
morse, soit encore en télégraphie. Il 
y a déjà quelque temps que les radio 
amateurs ont remisé au grenier les 
manipulateurs pour se doter du cla- 
vier d’un micro-ordinateur, sur lequel 
ils pianotent leurs messages. Cette 
communication-là, régie par des lois 
strictes, est réservée aux passionnés 
titulaires d’une licence (ils peuvent 
cependant utiliser les interfaces et lo- 
giciels que nous allons décrire). 


Mais les progrès des microproces- 
seurs permettent surtout de cons- 
truire à des prix raisonnables (dans 
les 3000 F) des décodeurs qui affi- 
chent sur un moniteur (ou impriment 
à la demande) et en clair les messa- 
ges reçus. Voir s'afficher sur l'écran 
une depêche venue de Tirana ou un 
message émis par un bateau en mer 
a indiscutablement un côté magique. 
Avec un Apple, c'est encore mieux, 
car on peut stocker sur disquette les 
messages reçus. 
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Pour recevoir des émissions lointai- 
nes, il faut d'abord une bonne an- 
tenne particulièrement dégagée. 
C'est un must”. Sans antenne, pas 
de réception. 

Vient ensuite un récepteur de trafic 
multibandes. Citons notamment le 
FRG7700 de Yaesu, ou mieux, l'ICR 
71 d'Ilcom. Prix: entre 5.000 et 
10.000 francs. 

Pour relier le récepteur à une carte 
série RS232C, il faut encore une in- 
terface. Vous avez le choix entre le 
CP1 d'Advanced Electronic Applica- 
tions Inc (200 dollars), l'Interfacell de 
Kantronics (270 dollars) ou encore le 
MFJ 1224 de MFJ enterprise (100 
dollars). 


Les messages décodés entrent dans 
l'Apple par l'extension série. Reste 
encore à gérer ces communications. 
C'est l'affaire des logiciels de Kantro- 
nics : Hamsoft, 30 dollars pour gérer 
l'écran et contrôler la vitesse des 
transmissions; Hamtext (100 dollars) 
sert à sauver les messages sur dis- 
quette, transmettre depuis une dis- 
quette, indiquer l'heure des transmis- 
sions, etc. Attention, ce passe-temps 
devient très vite obsédant. Bonjour 
les nuits blanches... 


Les tableurs 


Courant mai, Pom's a vu Practicalc 
II (Apple ‘84, Londres), un tableur 
(nous en reparlerons) offrant du trai- 
tement de texte, de la gestion de fi- 
chiers, de la consolidation, … et ca- 
pable d'utiliser directement un disque 
dur et des fichiers Basic. 


Nous avons aussi reçu récemment, 
bien qu'il soit sorti depuis quelque 
temps déjà, Visicalc Advanced 
Version de Visicorp : il s’agit là de la 
version avancée de Visicalc antérieu- 
rement disponible sur l'Apple //! seu- 
lement et longtemps attendue sur le 
/te. Une des particularités de VAV est 
d'autoriser, comme l’a fait plus ré- 
cemment Lotus 1-2-3, la pré-pro- 
grammation de séquences de tou- 
ches. En outre, les possibilités de 
formatage et les fonctions sont nette- 
ment plus nombreuses. 


Flashcalc enfin, lui aussi produit de 
Visicorp, a fait son apparition à 
Apple Expo. Un des principaux ob- 
jectifs de Flashcalc, qui a beaucoup 
de points communs avec Magicalc, 
est d'assurer une rapidité de calcul à 
toute épreuve. Nous n'avons pas en- 
core pu tester celle-ci en vraie gran- 
deur, n'ayant eu entre les mains 
qu'une version bridée à 6K. 


Disquettes de 
démonstration 
De nombreux lecteurs, soit de par 


leur éloignement géographique, soit 
parce que leurs revendeurs sont mal 


approvisionnés ou peu disponibles, 
ont des difficultés à se faire une idée 
des produits nouveaux. C'est pour- 
quoi Pom's a décidé d'offrir à ses 
lecteurs la possibilité d'acquérir à bas 
prix (celui des disquettes de Pom's, 
le meilleur rapport performance/prix 
du marché) les disquettes de dé- 
monstration en sa possession, sous 
réserve bien entendu que le fabricant 
ou l'importateur du produit donne 
son accord explicite. Dans le cadre 
de ce nouveau service, nous offrons 
dès à présent, comme vous pouvez 
le voir sur le bulletin d'abonnement, 
les disquettes de démonstration de 
CX Système et de Jane. Les fabri- 
cants ou importateurs de logiciels qui 
seraient intéressés par ce moyen très 
rapide de faire mieux connaître leurs 
produits peuvent nous proposer leurs 
disquettes. 


Adresses 


Advanced Electronic Applica- 
tions - PO Box C2160 - Lynnwood, 
WA98036 - USA. 

Artsci - 5547 Satsuma Av. - North 
Hollywood, CA 91601 - USA. 

ASAP - 3 avenue des Trois Peuples 
- 78180 Montigny le Bretonneux - 
Tél (3) 043.82.33. 

BIP - 13 rue Duc - 75018 Paris - Tél 
255.44.63. 

Creative Peripherals Unlimited - 
1606 S.Clementine Anaheim, CA 
92802 - USA. 

Dark Star System 78 Robin 
Hood Way - Greenford Middlesex - 
UB67QW - GB. 

Dune Associates - PO Box 1631 - 
Kailua - HI96734 - GB. 

Intec - 41/45 Knights Hill Westnor- 
wood - London - SE 270HS - GB. 
Kantronics - 1202 E 23rd Street - 
Lawrence, KS 66044 - USA. 

MFJ - Box 494 - Mississippi State, 
MS 39762 - USA. 

Micro-Périph - 62 rue Ducouédic - 
75014 Paris - Tél 321.53.16. 

Roger Wagner - 10761 Woodside 
Av.SuiteE - PO Box 582 - CA 92071 
- USA. 

Softsmith Corporation-1431 Doo- 
lite Drive - San Leandro, CA 94577 
- USA. 

Sierra On Line 
CA93614 - USA. 
Softsmith Corp (pour Friends and 
Lovers) 2935 Whipple Road 
Union City, CA 94587 - USA. 
Street Electronics - 1140 Mark 
Av. - Carpinteria, CA93013 - USA. 
TextPrint - 8 Blanchard Rd - Bur- 
lington, MA 01803 - USA. 
Practicorp Ltd. - Goddard Road - 
Whitehouse Industrial Estate - Ips- 
wich -  Suffolk IP1 5NP - 
GB. 

Visicorp - 1 place Gustave Eiffel 

- Silic 241 - 94568 Rungis Cedex - 
Tél 687.61.01. 
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Les nouvelles du Macintosh 


Hervé Thiriez 


On peut résumer le développement 
du Macintosh à l'aide d'un petit 
exemple comparatif : il a fallu deux 
ans et demi pour vendre les 50.000 
premiers Apple Il Plus, sept mois 
pour les 50.000 premiers IBM PC, 
deux mois un quart pour les 50.000 
premiers Macs … Il y en avait partout 
à Apple Expo sur les stands, des 
piles de cartons d'emballage de Macs 
étaient présentées, mais très peu de 
stands pouvaient effectivement en 
proposer à la vente immédiate. Les 
petits futés (parmi les revendeurs) qui 
s'en sont vite aperçus n’ont pas at- 
tendu pour vendre leurs Macs plus 
cher que le prix public conseillé, ce 
qui est peu fréquent dans le monde 
de la micro-informatique ! Idem pour 
les disquettes 3,5 pouces : il ne res- 
tait plus que des Memorex dont'(sur- 
prise !) le prix a augmenté dès que 
fut constatée la rupture de stock des 
concurrents (Sony et Hewlett Pa- 
ckard). La rançon de la gloire … 


Pour ma part, je reste tout à fait en- 
thousiasmé par le Mac, mais consi- 
dère qu'il faut absolument avoir un 
second lecteur de disquettes pour 
pouvoir travailler avec confort. Si 
lon s'en prive, on est condamné à 
jongler avec les disquettes à la moin- 
dre lecture ou sauvegarde de fichier. 


Le logiciel 


Les programmes commencent à se 
multiplier. La liste des programmes 
déjà disponibles ou pratiquement dis- 
ponibles (visibles mais non encore 
vendus) augmente sans cesse. Au ca- 
talogue Apple du 20 juin, on trouvait 
MacWrite/MacPaint à 1.586 FF, Mul- 
tiplan U.S. à 2.206 FF et Basic Mi- 
crosoft à 1.696 FF. 


Déjà disponibles ou sur le point de 
l'être, nous avons remarqué à Apple 
Expo : 

— Multiplan en version française; 

— Basic Microsoft en version fran- 
çaise; 

— CX MacBase, qui n’a plus grand 
chose à voir avec CX Système, 

— Omnis; 

— PES, avec File et Report; 

— La Pierre Mobile, jeu écrit par 
Bruno Rives, que les lecteurs de 
Pom's ont déjà vu à l'oeuvre; Bruno 
est le responsable en France de la fa- 
mille Apple des produits 68000; 

— Eleugram, une disquette de jeux 
mensuelle dont le numéro 1 était 
proposé à Apple Expo, vendue par 
Compusoft, une jeune entreprise 
française malgré son nom à conson- 
nance anglaise (en effet, ce nom 


sonne mieux que Calcumou ...); 
— et cette liste n’est pas limitative. 


Attendus aussi à court terme : 
—Think Tank; 


— Chart de Microsoft; 

— le Pascal déjà célèbre du Macin- 
tosh; 

— Lotus 1-2-3 (pas encore de confir- 
mation officielle); 


—dB Master. 


Particulièrement remarquable mais 
encore invendu en France, le carnet 
d'adresses d'Habadex. A l'écran de 
Mac, un superbe graphisme repré- 
sentant un carnet alphabétique, il 
suffit de cliquer les lettres pour l’ou- 
vrir. À mi-chemin entre l’agenda et la 
base de données. Etonnant. La 
revue A+ de juin donne une liste 
détaillée des logiciels à paraître ou 
déjà parus pour le Mac. Et notam- 
ment, dès juillet, les jeux d’Infocom 
(Zork, Infidel, etc.). Ceux de Penguin 
(Transylvania, The Quest) sont déjà 
disponibles aux Etats-Unis. 


Périphériques 
Le catalogue Apple du 20 juin pro- 
pose seulement le disque supplémen- 


taire (4.622 FF) et le clavier numéri- 
que (963 FF). 


Tout le monde pouvait voir au stand 
de Symbiotic à Apple Expo leur dis- 
que dur, tout récemment commercia- 
lisé pour le Macintosh. Il y aura bien- 
tôt du choix en la matière avec le 
Davong et les autres, qui ne tarde- 
ront pas à se mettre de la partie. 


MacPaint 


Il arrive avec MacPaint, alors qu’il 
semble y avoir au moins 20K dispo- 
nibles sur la disquette, que l’on ob- 
tienne le message ”’Le disque est sa- 
turé, veuillez effacer des documents 
ou changer de disque”. Il faut alors 
sortir, avec toutefois, heureusement, 
la possibilité d'effectuer préalable- 
ment une sauvegarde. 


Pourquoi le disque est-il ’’saturé” 
quand il semble encore y avoir de la 
place ? La raison en est la suivante : 
de façon automatique, MacPaint 
vous protège en permanence contre 
une extinction intempestive ‘des lu- 
mières” en conservant automatique- 
ment l’état de votre travail dans des 
fichiers baptisés Paintl et Paint2. Ces 
fichiers disparaissent dès que vous 
terminez normalement une séance de 
travail avec MacPaint. 


Si par contre il y a une interruption 
anormale, ces deux fichiers se trou- 
vent sur la disquette, grâce à quoi 
votre prochaine séance débutera au- 
tomatiquement par le chargement de 
Paintl et Paint2, le fichier étant alors 
baptisé ’Récupéré” à l'écran. 


Il faut 20 à 30K pour loger à tout 
moment Paintl et Paint2, ce qui ex- 
plique par conséquent le fameux 
message indiquant la saturation. 
Vous pouvez d’ailleurs constater ce 
que nous venons de vous expliquer 
en éteignant votre Mac alors qu'un 
fichier MacPaint sans importance est 
chargé: vous verrez en rallumant 
l'appareil (attendez quelques minu- 
tes) que les fichiers Paintl et Paint2 
se trouvent effectivement sur la dis- 
quette. Lors de la mise en oeuvre de 
MacPaint, vous obtiendrez ensuite le 
chargement du fichier; il s'appelera 
’Récupéré”, et les fichiers Paintl et 
Paint2 disparaîtront du catalogue si 
vous quittez ensuite MacPaint de 
façon normale. 


Recopie d’écran 


Si vous avez bien lu la documenta- 
tion, vous savez probablement que 
l'on peut à tout moment obtenir une 
recopie de l'écran sur imprimante 
avec Commande-Shift-4. Par contre, 
en faisant Commande-Shift-3, vous 
envoyez la recopie d'écran sur dis- 
quette, où elle devient un fichier 
MacPaint sous le nom ScreenX 
(X=0, 1, 2, … automatiquement). 


Ce fichier MacPaint est par consé- 
quent (comme tout fichier MacPaint) 
modifiable à loisir et intégrable en to- 
talité ou en partie dans un fichier de 
texte MacWrite. 


Copie de disquettes 


Apple vient de sortir une disquette 
de copie rapide, permettant de co- 
pier une disquette entière en quatre 
passes avec le seul lecteur intégré. 
Pour aller plus vite, ce programme 
utilise la mémoire écran du Mac, qui 
se remplit alors de caractères farfelus. 
Ne vous en faites pas, tout est nor- 
mal 


Utilisation de 
programmes américains 


Si vous utilisez des programmes ra- 
menés des USA, ou non encore fran- 
cisés, par exemple le Basic US et le 
Muiltiplan US de Microsoft, vous pou- 
vez les modifier de façon à pouvoir 
utiliser pleinement le clavier français 
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et les caractères accentués. La procé- 
dure à suivre est la suivante : 


— effectuer préalablement une copie 
de la disquette à modifier (facultatif, 
mais on ne sait jamais); 

— redémarrer avec la disquette ”’Dis- 
que Système” française livrée avec le 
matériel; 

— éjecter cette disquette; 

— introduire la disquette du logiciel à 
modifier; 

— copier le fichier “System” de la 
disquette ‘Disque Système” sur la 
disquette du logiciel à modifier (quel- 
ques échanges de disquettes peuvent 
être nécessaires). 


Bug sur la disquette 
MacWrite/Paint 


Avec la première série des disquettes 
MacWrite/Paint, il était impossible 
d'initialiser correctement une dis- 
quette vierge à partir du bureau, ou 
de travailler correctement avec plu- 
sieurs disquettes. Cela tient aux infor- 
mations contenues dans les pistes de 
boot (celles qui se lisent à l'allumage 
de l'appareil) de la disquette Mac 
Write/Paint. 


Vous pouvez remédier au problème 
avec l’une des solutions indiquées ci- 
dessous : 


® soit copier le logiciel Macw- 
rite/Paint sur une autre disquette: 

e soit démarrer à partir d’une autre 
disquette, l'éjecter, puis insérer la 
disquette Macwrite/Paint. 


Bibliographie 


Nous avons remarqué deux ouvra- 
ges, dont l’analyse paraîtra dans le 
numéro de septembre : 


— Mac, produit par Microsoft, avec 
une couverture type graffiti rouge. 

— Macintosh, Muiltiplan, MacPaint, 
de Eddie Adamis chez Cedic/Nathan, 
à 89 FF. 





Si je prends la plume pour vous 
écrire, c'est tout d’abord pour vous 
féliciter pour votre revue. En fait, je 
ne l'aurais pas fait il y a six mois. En 
effet, je suis possesseur d'Apple II 
Plus depuis un an et, avant entendu 
parler de Pom's, j'ai acheté, peu 
après l'Apple, les numéros 4, 5 et 6. 
N'étant qu'un novice, je me deman- 
dais ce que voulait dire le charabia 
des programmes et, parfois, des arti- 
cles. Mais, ayant progressé, j'ai relu 
récemment ces numéros et V ai 
trouvé une foule de renseignements 
et des programmes  consistants, 
n'ayant rien à voir avec ceux d’au- 
tres revues. Je voudrais donc savoir 
comment m'v abonner. 


D'autre part, j'ai relu l’article sur 
Haifa dans le numéro 5. Je voudrais 
aussi savoir à quel prix je pourrai le 
recevoir. 

Dominique Gilles - 91610 Balan- 
court'Essonne 


Merci pour votre lettre qui nous ras- 
sure sur le bien-fondé de notre politi- 
que éditoriale de ”’nivellement par le 
haut”. Je joins à cette lettre un bulle- 
tin d'abonnement à Pom's, sur le- 
quel vous trouverez tous les rensei- 
gnements nécessaires. 


En ce qui concerne le programme 
Haïfa, vous le trouverez sur la dis- 
quette d'accompagnement du nu- 
méro 5. La disquette Haïfa Source, 
quant à elle, reprend simplement les 
programmes source en assembleur 
Lisa 2.5, qui n'avaient plus la place 
de se loger sur la disquette du nu- 
méro 5. Cette disquette intéresse 
donc les lecteurs qui souhaitent ana- 
lyser et/ou modifier le programme 
Haiïfa. Les disquettes du numéro 5 et 
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Courrier des lecteurs 


Haïfa Source sont vendues 55 francs 
pièce. 





Sur les 11 disquettes de Pom's que 
j'ai reçues, j'en ai 3 qui ne bootent 
plus. Pourriez-vous m'expliquer ce 
qui se passe et me dire s'il y a 
moyen de réparer autrement qu'en 
faisant INIT HELLO et en recopiant 
tous les fichiers par FID ? 


Monsieur Jean-Michel Vélin - 50450 
Gavray 


Ce qui pourrait expliquer qu'il y ait 
parfois des problèmes au niveau du 
boot, c'est que le DOS se trouve sur 
le bord extérieur de la disquette. Si 
celle-ci a été quelque peu écrasée 
par les PTT, c’est en effet le bord qui 
souffre en premier. Îl est possible 
d'utiliser des logiciels tels que Locks- 
mith, Super Copy, Copy II+ (4.1 à 
4.3) … pour recopier seulement les 
pistes 0, 1 et 2 (celles du DOS), sans 
pour autant avoir à initialiser et à re- 
copier fichier par fichier. 


Carte Eve Chat Mauve 


L'ablation du buffer dont je vous ai 
parlé dans ma lettre (Pom's 12) n'est 
hélas pas sans conséquence, comme 
je le pensais initialement. Je me suis 
aperçu par la suite que cela empêche 
Visicalc Advanced Version de fonc- 
tionner, ce logiciel ne reconnaissant 
alors plus l'extension mémoire 64K 
ni les routines 80 colonnes. Par 
contre, l’ancien Visicalc les reconnaît 
sans problème, de même que Muilti- 
plan. Allez savoir pourquoi … 


Jean-Pierre Januel - 75009 Paris 


Alexandre Duback 


La rubrique reste donc ouverte 


Par votre intermédiaire, je voudrais 
m'adresser aux possesseurs de //e 
qui envisagent d'acheter la carte 
Chat Mauve, afin de leur éviter de 
faire une bêtise. C'est vrai qu'on 
peut avoir la couleur, mais on peut 
aussi l'avoir avec un poste PAL- 
SECAM et un câble à 100 francs. Il 
est vrai qu'avec la carte Chat Mauve 
et le logiciel Purplesoft, on peut véri- 
tablement faire du graphisme HGR 
couleur. C'est remarquable d'effica- 
cité. Malheureusement, dès que l'on 
fait un petit programme Basic de plus 
de 2.5K, il écrase les routines du 
Purplesoft et plus rien ne marche. 
Vous avez donc une machine avec 
128K dont 2.5 réellement utilisables. 
On n'arrête pas le progrès ! En outre, 
la carte ne permet plus d'imprimer 
avec le Pascal et une imprimante 
Epson ou Microline (NDLR : avec 
notre Oki92, cela marche); on peut 
enlever le circuit intégré au-dessus du 
T de CHAT MAUVE, mais alors 
Apple Writer ne marche plus … 


A. Delacourte - 59155 Faches Thu- 
mesnil 


Et voilà ! Votre lettre se joint au dos- 
sier. 


NDLR - Aux dernières nouvelles, il 
s'avère que la carte Eve Chat Mauve 
n'a rien à voir avec les problèmes 
rencontrés avec l'Epson. La carte 
graphique Epson n'admet pas que 
d’autres cartes utilisent le bus de 
données en même temps qu'elle : le 
problème rencontré avec la carte 
Chat Mauve se présente aussi avec 
des cartes horloge, ou d'autres 


cartes. Ce n'est pas le cas avec la 











| 


carte 80 colonnes étendue, car celle- 
ci n'utilise que le connecteur auxi- 
liaire. Merci M. Januel, pour cette 
dernière information. 





J'ai lu dans un numéro de Pom's 
que, si tous les slots sont occupés, 
cela ne peut pas marcher. Or, tous 
mes slots seront occupés, à part le 
slot numéro 7, avec les cartes que 
j'envisage d'acheter. Qu'en pensez- 
vous ? 


Monsieur J-C Decret - Bordeaux 


On peut utiliser tous les slots simulta- 
nément, mais il se peut alors que, 
soit l'appareil ne “boote” plus, soit il 
le fasse mais connaisse des pannes 
aléatoires dues à la surchauffe. Tout 
cela tient plus au type des cartes 
qu'à leur nombre: certaines cartes 
tirent” beaucoup et fonctionnent 
comme des radiateurs. Si l'appareil 
ne boote plus, on peut récupérer la 
situation, dans certains cas, en rem- 
plaçant des composants standards de 
l'Apple par des composants de 
même nature, mais plus puissants 
(voir pour cela votre revendeur). S'il 
y à surchauffe, on peut utiliser l’un 
des nombreux modèles de ventila- 
teurs spécialisés. De toute façon, 
vous pouvez toujours emmener votre 
Apple chez votre revendeur pour voir 
s'il boote toujours après l’adjonction 
des nouvelles cartes que vous envisa- 
gez d'acquérir. 





Dans le POKEs à gogo, de Roland 
Jost (Pom's 11), je note le POKE 
214,255. Pour en sortir, l’auteur indi- 
que qu'il faut passer en langage ma- 
chine et faire "’D6:00”. Mais le POKE 
inhibe les CALLs. Comment passer 
en moniteur sans le CALL —151 ? 


S. Querret - 59760 Grande Synthe 


Votre remarque au sujet du POKE 
214,255 est tout à fait pertinente. 
L'humour marquant la suggestion de 
faire un CALL pour rétablir la situa- 
tion, alors que les CALLSs ne sont 
plus possibles après le POKE, est en 
effet involontaire. 

Pour revenir en assembleur sans pas- 
ser par CALL —151, il suffit d'utiliser 
ce qu'indique Jacques Duma dans sa 
lettre publiée dans le Courrier des 
Lecteurs du Pom's 6 (page 66). Utili- 
sez un des numéros d'instruction 
entre 437760 et 440319, ce qui a 
pour effet de vous placer à un en- 
droit imprévu (et variable) en mé- 
moire, par exemple avec ‘440000 
A=1”. À moins que vous n'ayez la 
malchance de tomber sur une bou- 
cle, vous finirez pas arriver sur un 
BRK (code 00), ce qui vous ”’plan- 
tera” et vous mettra donc en mode 
moniteur. 

Il ne restera plus alors qu’à faire le 





D6:00 qui annihilera l'effet du 
PORKE, non sans toutefois faire dispa- 
raître le programme Basic qui aurait 
résidé préalablement en mémoire. 


Il semble que l'écriture sur l'écran ne 
marche pas dans MATGRAPH, parce 
que les tables ne figurent pas dans la 
liste parue dans le Pom's 10. Ne 
pourriez-vous pas les publier dans un 
prochain numéro ? 


Pierre Arnaud - 92260 Fontenay aux 
Roses 


Cela n'a pas marché car il y a un 
problème avec la partie de AL- 
PHAGR publiée dans le Pom's 10. 
Comme la plupart des lecteurs sont 
abonnés aux disquettes, ce problème 
n'avait pas encore été soulevé. Il y a 
en effet eu une troncature abusive et 
une partie du code a été oubliée, de 
9272 à 928D. 

À titre correctif, nous listons ci-des- 
sous le code hexa de ALPHAGR en 
entier, y compris la partie où les chif- 
fres et les lettres ont été définis à 
l'aide du programme de création de 
polices de caractères (Pom's 8). 


En réponse au courrier de M. Januel 
(Pom's 12), voici la modification du 
programme MENU des disquettes 
Pom's qui permet l'impression sur 
une Epson avec interface Apple : 


70 POKE 34,24:PRINT D1$"PR#"S 
71 PRINT CHR$(0) 

72 PRINT CHR$(27)"A"CHRS(10) 
73 POKE 1657,80 

75 CALL 37989 

76 PRINT CHR$(27);,CHR$(50) 

77 PRINT D$"PR#0" 

78 TEXT 


Alain Meizoz 





Je vous informe de la création du 
club informatique “Bellegarde Info” à 
Bellegarde sur Valserine, dans l'Ain 
près de Genève. Nous possédons un 
Apple //e en configuration de base, 
deux ZX81 et bientôt un ordinateur 
intermédiaire. 


Pierre-Jean Giraud - 3 allée Paul 
Claudel - 01200 Bellegarde 





Avec Apple Writer 2.0 (et non //e) et 
une Epson MX-82, comment faut-il 
faire pour obtenir les caractères spé- 
ciaux ? J'utilise aussi le Magicalc fran- 
çais qui, par ailleurs, ne donne au- 
cune indication à ce sujet Comment 
faut-il faire ? Enfin, comment incor- 
porer des tableaux Magicalc en 
Apple Writer 2.0 ? 


Docteur Docteur Séror - 17, rue 
Georges Messier - 64400 Oloron 
Sainte Marie 


Pour utiliser des caractères spéciaux, 
je vous conseille "Donnez du carac- 
tère à votre imprimante”, du Pom's 
9, et Les codes ASCII épluchés” du 
Pom's 4 Pour Magicalc, il faut met- 
tre les caractères comme pour Multi- 
plan, mais non précédés de l'accent 
circonflexe. 

Magicalc n’est pas tout à fait compa- 
tible Visicalc, comme vous pourrez le 
voir avec le fichier que nous publions 
dans ce numéro (Lève-toi et brille). 
Enfin, pour incorporer des tableaux 
Visicalc ou Magicalc dans un traite- 
ment de texte qui utilise des fichiers 
TEXT, il suffit de les sauvegarder 
sous forme de fichiers d'impression 
sur disquette (PRINT in SAVE for- 
mat). 


Amélioration de GES- 


COMPTE 
Michel Herlaut 


Je me permets d'ajouter une petite 
modification au programme de ges- 
tion de compte bancaire de Domini- 
que Compère (Pom's 10). Le sous- 
programme que je vous propose ici 
(10000 à 10520) calcule le solde du 
relevé du compte après la vérification 
des opérations. En plus de ce sous- 
programme, il convient d'ajouter au 
programme les lignes suivantes : 


22917 IF TEMUIN = : THEN RETURN 

3175 IF Af$ / °R° THEN GOGUE 10000 
‘ GOT 3040 

8667 IF TEMGIN = i THEN 4700 

8742 IF TENCIN = 1 THEN RETURN 

22 IF TT = © AND B = O THEN GOTD 

3630 

IF TEMOIN = 1 AND M"iD$ (TB$IB 

),24,1) = * * THEN GOTD 5640 

9626 1F TEMOIN = 1 AND B = © AND T7 
{ } 0 THEN 40 

3645 1F TEMUIN = ! THEN RETURN 


La commande "R" permet le bran- 
chement vers le sous-programme. 
Les données nécessaires sont le mois 
et l'année de départ (MMAA). Le 
sous-programme effectue alors la 
sauvegarde du mois en cours de trai- 
tement si nécessaire, puis le calcul du 
solde en ne prenant en compte que 
les opérations déjà vérifiées, jusqu'au 
dernier mois créé. 

Je me permets d'ajouter encore deux 
lignes indispensables pour la bonne 
marche du programme original : 


9512 A2$ = STRS (A2) 

11085 VTAB 1: HTAB 32: INVERGE : PR 
INT MIDS (TBS(0),32,9):: NOR 
ML 
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10000 REM 


: 49088.95FF 9268- FF FF 00 00 FF FF 00 00 
a M 9970- FF FF 01 OA 09 88 90 21 
Frs 9278- 01 21 11 32 A9 00 AB Bi 
Ro En 1 9280- 85 8D 72 92 CB BI 85 85 
10030 L2S = *MOIS,ANNEE DE DEPART :*  9086- 00 00 00 00 00 00 00 04  9288- EE Ca B1 85 45 EF AD 73 
:L3$ = *RELEVE": GOSUB 5500 9090- 04 04 04 00 00 04 OA DA  9290- 92 4dA 4A 4A 8D 7A 92 
10040 INPUT M9, A9 9098- OA 00 00 00 00 14 14 1F  9298- OA DA 85 ED AD 73 92 38 
10050 1F M3 = Me THEN 10120 9040- OA 1F 05 05 1F 05 05 1F  9240- E5 ED 85 EC A9 20 8D 79 
10060 M$ = STRS (MJ):AnS = STRS À 9048- 14 14 1F 13 13 08 04 02  92A8- 92 A5 ED 04 0À 18 65 ED 
Rg) 90B0- 19 19 1C 14 1C 06 15 09  92B0- 8D 78 92 A5 EC 4A 85 EC 
10065 MN = M3:AA = A3 90B8- 15 08 04 02 00 00 00 00  92B8- AD 78 92 90 02 69 7F 8D 
10070 BEM 90C0- 08 04 02 02 02 04 08 02  9200- 78 92 18 A5 EC éD 7992 à 
OMS SEE Nn 90C8- 04 08 08 08 04 02 00 11  92C8- 8D 79 92 18 AD 74 92 D) 
sprint 90D0- 0B 1F 0B 11 00 00 04 04  92D0- 78 92 8D 7B 92 A9 00 D 
pins 90D8- 0B 04 04 00 00 00 00 00  92D8- 79 92 8D 77 92 18 A9 00 
10100 CL = NB: GOSUB 11010 90E0- 08 04 02 00 00 00 {F 00  92E0- 80 78 92 A2 00 A9 00 85 | 
10110 REM 90E8- 00 00 00 00 00 00 00 04  92EB- FA AD 7R 92 85 EC AD 77 
10120 A2 = NB - 1: GOSUE 9600 90F0- 04 10 10 08 04 02 01 01  92F0- 92 85 ED AC 78 92 B9 AB 
10130 ONERR GOTD 10300 90F8- 1F 11 19 15 13 11 1F 08  92F8- 93 38 E9 20 9D 7A 92 85 
10140 IF MM=12THENW=0:hA=A 9100- 0C 04 08 DB 08 08 1F 10  9300- F9 Dé F9 26 FA Dé F9 24 
ni 9108- 10 1F 01 O1 ÎF 1F 10 10  9308- FA Dé F9 26 FA 38 A5 F9 
10150 mt = 1e 1umms = smRs mwo:n  9110- 1F 10 10 1F 09 09 09 09  9310- ED 7A 92 85 F9 ASFAE9 = 
= SR (Mi 9118- 1F 08 08 1F 01 O1 1F 10  9318- 00 85 FA 18 AD 75 92 65 
R$ S 
oo Moss = Tmsuw): gasus 1400: 6  9120- 10 ÎF 01 O1 ON 1F 11 11  9320- F9 85 F9 AD 76 92 65 FA 
He : 9128- 1F 1F 11 10 08 04 02 01  9328- 95 FA 49 00 AB Bi F9 8D 
vo ee = cmeuues + mess  9130- 1F 11 11 JF 11 11 16 1F  9330- 74 92 A9 00 AB AD 74 92 
à se 9198- 11 11 1F 10 10 10 00 00  9338- 91 EC E8 A9 04 18 45 ED 
+ STRS (AA) 9140- 04 00 00 04 00 00 00 04  9340- 85 ED A5 F9 49 01 85 F9 
10173 PRINT 9148- 00 04 04 02 08 04 02 01  9348- A5 FA 69 00 85 FA BA C9 
10180 PRINT D$"VERIFY "DONS 9150- 02 04 08 00 00 1F 00 00  9350- 07 DO D7 18 AD 7B 92 49 
100 om mio: ons mon =n Diane do 00 UE 0 OU AE 04 dut 00 80 00 0 CD 99 Ve 
10200 GDSUR 8650: GOSUE 2200:CL = N _ So 
B: GOSUB 11010:A2 = NB-1:6  9148- 0E 11 15 13 00 01 IE CE  9368- 78 92 CD 72 92 F0 03 4C 
OSUB 9610 9170- 11 11 51 1F 11 11 OF 11  9370- E3 92 60 00 00 2D 2D 2D 
Po Dee OÙ OIL IE OF FE UINT be &8 LE 0 00 FE EE 00 00 
ee ue 9188- 11 11 OF 1F 01 O1 OF O1  9388- FF FF 00 00 FF FF 00 00 
10310 POKE 216.0: IAME 222,0 
1020 = mi rm orænm  9190- 01 {F 1E 01 01 OF 01 O1  9390- FF FF 00 00 FF FF 00 O0 
RSA EN 9198- 01 1E O1 01 0D 11 11 QE  9398- FF FF 00 00 FF FF 00 00 
: à AS Tr. 91A0- 11 11 11 1F 11 11 11 04  9340- FF FF 00 00 FF FF 00 00 
10325 MMS = STRS (MM)5AAS = STRS Ü  O1AG- 04 D4 04 04 04 04 10 10  9348- 52 46 52 45 FF FF 00 00 
A) 91B0- 10 10 10 11 0E 11 89 05  9380- FF FF 00 00 FF FF 00 00 
10330 GOSUE 1400:MM$ = STRS (MD:A  91B8- 03 05 09 11 O1 O1 O1 01  93B8- FF FF 00 00 FF FF 00 00 
AS = STRS (AA) 91C0- 01 01 1F 11 1B 15 14 11  93C0- FF FF 00 00 FF FF 00 00 
C340 MOISS = TMS (Ph) = _ 
1 91C8- 11 11 11 11 1315 19 11  93C8- FF FF 00 00 FF FF 00 00 
CENTRE OR. Fe PE O8 0 LE FE 08 48 
+ — 
SU ET TETE 
PU Cne en  AFO- 0E 10 10 OF 1F 04 04 04  93F0- FF FF 00 00 FF FF 00 00 
91F8- 04 04 04 11 11 11 11 11 93F8- FF FF 00 00 FF FF 00 00 
SUB 5500 
9200- 11 DE 11 11 11 11 11 OA  9400- FF FF 00 00 FF FF 00 00 
10006 CAL - 666 9208- 04 15 151515151504  9408- 78 FF 00 00 FF FF 00 00 
10450 TEMOIN = 0 9210- 11 11 OA 04 OA 15 11 11  9410- FF FF 00 00 FF FF 00 00 
10500 GET WS 218- 11 OA 04 02 01 01 1F 10  9418- FF FF 00 00 FF FF 00 00 
CES PeUDUUUUE MReUURe Un 
10520 RE 9228- 02 02 02 QE 0 : 
9230- 08 10 10 0E 08 08 08 08  9430- FF FF 00 00 FF FF 00 00 
a 92407 00 00 08 00 00 00 OUR 4M0- FF FE 00 00 FE FF 0 00 
GRAPH ae Ode (TE 9248- FF FF 00 00 FF FF 00 00  9448- FB FF 00 00 FF FF 00 00 
du numéro 10. Voisi à ce te cor  9250- FF FF 00 00 FF FF 00 00  9450- FF FF 00 00 FF FF 00 00 
rectif la liste complète de AL.  9258-FF FF 00 00 FF FF 00 00  9458- 7F FF 00 00 FF FF 00 00 
PHAHGR, 9260- FF FF 00 00 FF FF 00 00  9460- FF FF 00 00 FF FF 00 00 
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# 
LL 


70 


9468- FF FF 00 00 FF FF 00 00 
9470- 01 00 04 00 1B 24 20 2D 
9478- 36 36 3F 3F 24 00 00 00 
9480- FF FF FF FF FF FF FF FF 
9488- FF FF FF FF FF FF FF FF 
9490- FF FF FF FF FF FF FF FF 
9498- FF FF FF FF FF FF FF FF 
94A0- FF FF FF FF FF FF FF FF 
94A8- FF FF FF FF FF FF FF FF 
94B0- FF FF FF FF FF FF FF FF 
9488- FF FF FF FF FF FF FF FF 
94C0- FF FF FF FF FF FF FF FF 
94C8- FF FF FF FF FF FF FF FF 
94D0- FF FF FF FF FF FF FF FF 
94D8- FF FF FF FF FF FF FF FF 
94E0- FF FF FF FF FF FF FF FF 
94E8- FF FF FF FF FF FF FF FF 
94F0- FF FF FF FF FF FF FF FF 
94F8- FF FF FF FF FF FF FF FF 
9500- 00 00 00 00 00 00 00 00 
9508- 00 00 00 00 00 00 00 00 
9510- 00 00 00 00 00 00 00 00 
9518- 00 00 00 00 00 00 00 00 
9520- 00 00 00 00 00 00 00 00 
9528- 00 00 00 00 00 00 00 00 
9530- 00 00 00 00 00 00 00 00 
9538- 00 00 00 00 00 00 00 00 
9540- 00 00 00 00 00 00 00 00 
9548- 00 00 00 00 00 00 00 00 
9550- 00 00 00 00 00 00 00 00 
9558- 00 00 00 00 00 00 00 00 
9560- 00 00 00 00 00 00 00 00 
9568- 00 00 00 00 00 00 00 00 
9570- 00 00 00 00 00 00 00 00 
9578- 00 00 00 00 00 00 00 00 
9560- FF FF FF FF FF FF FF FF 
9588- FF FF FF FF FF FF FF FF 
9550- FF FF FF FF FF FF FF FF 
9598- FF FF FF FF FF FF FF FF 
95A0- FF FF FF FF FF FF FF FF 
95A8- FF FF FF FF FF FF FF FF 
95B0- FF FF FF FF FF FF FF FF 
9588- FF FF FF FF FF FF FF FF 
95C0- FF FF FF FF FF FF FF FF 


99C8- FF FF FF FF FF FF 20 20 
95D0- 20 20 20 20 20 20 20 20 
95D8- 20 20 20 20 20 20 20 20 
95E0- 20 27 49 4E dé 4F 2E 43 
99E8- 41 44 52 45 53 27 20 20 
95F0- 20 20 27 49 4E 46 4F 2E 
95F8- 43 41 44 52 45 53 27 04 


Lecteur assidu de votre revue, j'ai- 
merais savoir si quelqu'un possède 
les notices d'emploi en français de 
Magic Window et Locksmith 5.0. 


Philippe Le Guen - 49, rue Paul Bert 
- 54520 Laxou 


Comme vous le comprendrez certai- 
nement, il n’est pas possible à Pom's 
de vous transmettre des photocopies 
de docs de programmes commer- 
ciaux. Nous nous mettrions dans 
notre tort en recourant à de telles 
pratiques, et notre souhait de rendre 





service aux lecteurs ne peut aller jus- 
que là. À notre connaissance, la no- 
tice en français de Magic Window 
existe (faite par Ordinateur Express - 
voir Pom's 11), mais pas celle de 
Locksmith 5.0. 


Heureux possesseur d'un Apple /’e 


et d’une imprimante Facit 4510, je 


. Suis un de vos fidèles lecteurs et vous 


appelle au secours. Dès que je veux 
faire de la recopie d'écran, je suis 
perdu. 


Dans Pom's 9, vous avez eu l'excel- 
lente idée de publier le programme 
GrafText, qui marche très bien pour 
la Facit 4510 avec seulement quel- 
ques modifications. Je vous serais re- 
connaissant si vous pouviez, dans un 
prochain numéro, proposer un pro- 
gramme de recopie d'écran HGR 
pour mon imprimante. 


Paul Genesio - 80 rue de Rome - 
13006 Marseille 


Malheureusement, nous ne pouvons 
pas vous recommander ici de pro- 
gramme de copie d'écran HGR pour 
la Facit. Il n'existe pas de programme 
général de recopie d'écran HGR, et 
chaque programme de ce type de- 
mande un certain temps de mise au 
point et, surtout, que l’on ait l’impri- 
mante (ou une bonne doc) sous la 
main. Nous ne connaissons personne 
ayant un programme adéquat pour 
votre imprimante. 


Tout ce que je peux faire pour vous, 
c'est de publier votre lettre. Ainsi, si 
un lecteur possède déjà un tel pro- 
gramme pour la Facit, il pourra vous 
le faire savoir. Dont acte | 


Sur les conseils d’un technicien d'Ap- 
ple Seedrin, nous vous soumettons 
un problème concernant Apple Wri- 
ter : il semble d'après cette personne 
que votre revue ait fait paraître un 
article répondant à notre question. 
Pour pouvoir employer l'imprimante 
qui équipe notre système, nous 
devons envoyer le code ASCII nul 
(0), ce qui à l'origine n'est pas possi- 
ble avec Apple Writer. Comment 
faire ? 


L. LECA - Chatelier Conseil - 75015 
Paris 


Nous avons publié dans le numéro 4 
de Pom's (ou Recueil No 1) l’article 


"Les codes ASCII épluchés”, qui 
permet de voir quels sont les caractè- 
res à envoyer pour obtenir tel ou tel 
code ASCII. L'article "Donnez du ca- 
ractère à votre imprimante” du 
Pom's 9 montre comment vous pou- 
vez utiliser des codes imprimante à 
partir d'Apple Writer. Nous avons 
aussi dans le numéro 12 un article 
plein de trucs pour Apple Writer. 


Malheureusement, le code 0 est un 
code bien spécial indiquant la fin d'un 
fichier. Si on commence un fichier de 
TEXT par ce code, ce texte sera vide, 
et ce pas seulement avec Apple Wri- 
ter. Dilemne ! La solution vous est 
offerte dans le Pom's 10, au Courrier 
des Lecteurs (page 71) : il faut modi- 
fier le programme Apple Writer//e. 


Message aux lecteurs … 


Nous recevons de plus en plus de 
lettres nous demandant comment il 
faut faire avec la configuration W, 
l'imprimante X, l'interface Y et le lo- 
giciel Z pour obtenir le résultat R ! Il 
y à tellement de combinaisons possi- 
bles que nous ne pouvons pas faire 
des recherches à chaque fois. Nous 
répondons donc à ces lettres quand 
nous pouvons y arriver rapidement, 
mais pas autrement : à vrai dire, c'est 
d’ailleurs le travail des fabricants de 
matériel et de logiciel. En outre, nous 
donnons la priorité aux lettres nous 
parvenant accompagnées d’une en- 
veloppe timbrée pour la réponse. 


Certains lecteurs nous ont posé des 
questions, suite à certaines informa- 
tions qu'ils ont pu lire dans une autre 
revue francophone sur Apple, ou à 
certains bruits. Nous leur précisons, 
pour répondre à ces questions, que : 


— le //c est incompatible avec le 
Duodisk comme avec les lecteurs du 
lle où du II Plus; 

— le réseau Apple-Bus fonctionnera 
initialement sur 68000 seulement 
pour tous types de fichiers, et par la 
suite (probablement) pour les fichers 
TEXT avec les familles 6502 et 
68000; 

— à court terme, seul le Lisa peut 
servir d'outil de développement pour 
le Macintosh; ultérieurement, ce sera 
aussi possible de développer avec 
deux ‘’Macs” reliés ensemble. Fi 


AAA PM 
FX 
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Bibliographie 


Le FORTH en douceur, de Michel 
Henric-Coll, Editions Evrolles - 143 
pages - 90 FF. 


Cet ouvrage a été conçu comme une 
étude progressive du langage Forth 
pour débutants en informatique. Il a 
été présumé que le lecteur ne possé- 
dait pas encore de connaissance 
dans ce domaine et n'avait pas non 
plus appris un autre langage de pro- 
grammation. C’est pourquoi il n’est 
pas structuré en chapitres homogè- 
nes et exhaustifs, que l’on pourrait 
directement consulter à la manière 
d'un dictionnaire. Ceci dit, un glos- 
saire fourni en fin d'ouvrage se ré- 
vèle très utile durant la lecture et plus 
tard, lors de l’utilisation du langage. 
À chaque chapitre est associé un en- 
semble d'exercices dont les corrigés 
se trouvent en annexe. 


Jean-Luc Boyer 


Débutez en FORTH, de Leo Bro- 
die, Editions Evrolles - 305 pages - 
130 FF. 


Ce livre est la traduction française de 
l'ouvrage "Starting FORTH”’, préfacé 
par l’auteur du langage, H.Moore. 
En premier lieu, cet ouvrage 
s'adresse à des débutants en infor- 
matique qui désirent s'initier au lan- 
gage FORTH. Mais malgré cela, les 
informaticiens de métier y trouveront 
des informations très intéressantes 
dont l’accès est facilité par une table 
des matières complète et un résumé 
des mots Forth accompagnés d’une 
indication de la page où ils sont pré- 
sentés. À la description du langage et 
de ses possibilités sont associés des 
dessins qui en facilitent la compré- 
hension. A la fin de chaque chapitre, 
un résumé permet d'en mémoriser le 
contenu, et une liste de problèmes 
est fournie. En conclusion, cet ou- 
vrage original par sa présentation est 
très complet, et devrait donc satis- 
faire l’ensemble de ses lecteurs. 


Jean-Luc Boyer 


Pangraphe par Jean-Pierre Petit 
(dessins en trois dimensions en Basic 
pour Apple II - Editions du P.S.I.). 


Ouvrage curieux, mêlant le plus 
grand sérieux mathématique et la 
folie débridée de la bande dessinée 
d'anticipation. 

Une culture mathématique de base 
est à l'évidence nécessaire pour se 





diriger sans trop de difficultés dans le 
labyrinthe des lignes trigonométri- 
ques. Une connaissance solide du 
Basic est également nécessaire pour 
suivre la “traduction” en programme 
de nombre d'options. Mais un grain 
d'humour est tout aussi indispensable 
pour ne pas s'irriter des facéties de 
BERNIE ou d'ARTHUR (de char- 
mants robots). 

J'ai aimé ! 

Avec un air de ne pas y toucher, 
l’auteur emmène son lecteur assez 
loin, aussi bien dans les lois de la vi- 
sion binoculaire que dans les élé- 
ments de géométrie descriptive per- 
mettant de comprendre en pro- 
fondeur la formation et l'interpréta- 
tion des images. 


Cela étant, il ne faut pas croire qu’on 
va pouvoir créer avec Pangraphe un 
système de dessin révolutionnaire, 
ultra-rapide et ultra-précis. Pangra- 
phe est essentiellement un outil di- 
dactique, même si des utilisations 
réelles peuvent s'appuyer sur les pro- 
grammes. Mais l'écriture de quelques 
modules en assembleur ne serait pas 
un perfectionnisme douteux si on 
voulait vraiment en faire un outil 
opérationnel. 


Un regret: le millier d'instructions 
(au moins) que représente Pangra- 
phe peut bien évidemment être tapé 
au clavier, mais au prix de combien 
d'heures et de combien d'erreurs ? 
J'en ai tapé un certain nombre pour 
faire des tests et j'ai eu des problè- 
mes avec l'un des tracés. Est-ce une 
erreur de programmation, de typo- 
graphie ou de frappe? Au bout 
d'une demi-heure, j'ai abandonné... 
Pourquoi diable, puisque c’est l'esprit 
de la collection ‘Utilisations de l’ordi- 
nateur”, ne pas avoir accompagné ce 
livre d’une disquette ? 


Une petite pointe bête et méchante, 
pour punir l’auteur de m'avoir fait 
tellement travailler sur mon clavier: 
le LOMEM, sur l'Apple, n'a jamais 
permis de loger le programme au- 
dessus de la valeur fixée, mais uni- 
quement les variables. Soit dit tout à 
fait entre nous, si le programme ne 
tenait pas dans les 14K disponibles 
sous la page 2, comment pourrait-il 
tenir entre le haut de cette page et le 
DOS (nettement moins de 14K) ! 


Guy Mathieu 


Le système MemDos par Pierre 
Clerc - EdiTests - 102 pages - 90 F. 


Après un rapide historique du pro- 
duit et de ses créateurs, cet ouvrage 
présente les différentes instructions 
du MemDos, tant en ce qui concerne 
la gestion des masques d’en- 
trée/sortie que celle des fichiers. 

On regrettera un certain manque de 
rigueur au niveau de l'introduction 
des concepts dans la partie descrip- 
tive ‘littéraire”. C'est ainsi que le 
programme illustrant la restitution des 
informations à l'écran s'articule sur la 
lecture d’un fichier, alors que les ins- 
tructions de lecture des fichiers ne 
sont traitées que dans les pages sui- 
vantes. De même, on voit apparaître 
des tests du type "IF WS > 0...” 
sans que le rôle particulier de cette 
variable WS dans le système 
MemDos ait été préalablement expli- 
qué clairement. 


Par ailleurs, il n’est pas fait explicite- 
ment mention de certaines précau- 
tions d'emploi, comme la nécessité 
de remettre les variables d'un mas- 
que à zéro avant une opération de 
Saisie (sinon les anciennes valeurs 
sont conservées par défaut alors que 
l'utilisateur croit avoir saisi une don- 
née ’vide” par un RETURN à vide), 
ou les risques que comporte une ins- 
truction LET”#R...” sur un fichier à 
accès par clé après une instruction 
LET'”X...”" si le fichier n’a pas été re- 
fermé puis ré-ouvert avant sa réorga- 
nisation. 


À porter au crédit de cet ouvrage 
une présentation par ordre alphabéti- 
que des instructions, sous forme de 
fiches techniques reprenant la syn- 
taxe et le champ d'application de 
chacune d'elles. 

Mais le programmeur désirant s'initier 
à la pratique du MemDos tirera sur- 
tout profit de l'exemple d'application 
proposé. Il s’agit en effet d'un pro- 
gramme développé en détail, de la 
conception des masques de saisie 
jusqu’à l'écriture complète des diffé- 
rents modules de traitement, en pas- 
sant par la définition des structures 
des fichiers nécessaires. On y trouve 
finalement une présentation conden- 
sée et concrète des possibilités du 
système. 

En conclusion, ce livre peut apporter 
une aide complémentaire à la lecture 
de la documentation livrée avec le 
système (et toujours aussi touffue...), 
mais il aurait gagné, du point de vue 
de l'utilisateur débutant, à une dé- 
marche plus progressive et mieux 
structurée dans ses développements. 


Alexandre Duback 
E 
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Les autres disquettes de 
Pom'’s 


Pom's a lancé, à l'occasion de son 
précédent numéro, deux disquettes 
moins ludiques, proposées chacune à 
450 FF TTC. 


Disk Manager, de Dan Steerev, est 
un programme utilitaire qui permet 
de recréer les commandes du DOS 
et de programmer simplement, à par- 
tir du Basic, des utilitaires personnali- 


beaucoup plus longs à programmer 
en assembleur. C’est à la fois un pro- 
gramme d'une grande utilité et un 
excellent outil pédagogique pour 
comprendre le DOS. Quatre utilitai- 
res, écrits à l'aide du Disk Manager, 
sont fournis en prime sur la dis- 
quette : Utili-Disque (reconstruction 
de disquette, vérification, .), Ultra- 
Copie (programme de backup très 
rapide), Edicat (éditeur de catalogue) 
et Multi-Disque (gère des fichiers de 
catalogues, opère des tris, ..). Docu- 


DBSTAG: disquette CP/M pour la 
création de statistiques et de graphi- 
ques à base d'histogrammes (impres- 
sion non graphique) à partir de fi- 
chiers de données sur DBASE IL Ce 
logiciel peut exploiter, sans limitation 
ni transformation, toute base de don- 
nées construite sous DBASE IL Il 
peut fonctionner seul, ou en sous- 
programme d'un programme écrit 
par l'utilisateur. Documentation dé- 
taillée, comportant un exemple traité, 
imprimable à partir de la disquette. 





sés de gestion du disque qui seraient  mentation de 50 pages. 
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Montant 

DEL 
e la disquette HAIFA Source! ] au prix de 55 F la disquette (cf. Pom’s n° 5) 
e le logiciel H-BASIC [] au prix de 150 F (cf. Pom’s n° 8) |] 
e le logiciel MUSIC [_] au prix de 80 F (cf. Pom'’s n° 10) | 
e le Disk Manager [_] au prix de 450 F (cf. Pom’s n° 11) 
e DBSTAG (CP/M) [_] au prix de 450 F (cf. Pom'’s n° 11) RS DS 
e Disquette de jeux A [_] au prix de 80 F (cf. Pom'’s n° 12) 
e Disquette de jeux B [_] au prix de 80 F (cf. Pom'’s n° 12) 
e le logiciel BASICIUM [_] au prix de 150 F (cf. Pom'’s n° 13) 
e la disquette de démo au prix de 55 F la disquette 


[] CX Système [ ] Jane 


e Recueil n° 1: de Pom's (n* 1 à 4) 
[ ] avec ses 3 disquettes au prix de 280 F 


[_] sans disquette au prix de 130 F 
[_] les 3 disquettes seules au prix de 150 F 


e Recueil n° 2 de Pom's (n° 5 à 8) 
[_] avec ses 4 disquettes au prix de 320 F ——— 
[_] sans disquette au prix de 130 F 
[_] les 4 disquettes seules au prix de 190 F 
Je désire recevoir : 
e les numéros de la revue Pom’s [ ]4 []7 []8 


au prix de 35 F le numéro 


e les numéros de la revue Pom’s [ ]9 []10 []11 []12 []13 
au prix de 40 F le numéro 














e les disquettes d'accompagnement des numéros []1 []2 []3 []4 
C5 C6 EJ7 CJ8 O9 (10 Q1ii [12 [113 
au prix de 55 F par disquette 

Je désire m’abonner pour 6 numéros à partir du n°... 


[_] sans disquette au prix de 200 F 
[] avec disquettes au prix de 480 F 








TOTAL : 


Envoyez ce bon de commande et votre règlement à : 


Éditions MEV — 64-70, rue des Chantiers — 78000 Versailles 


Nom 





Adresse 





Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 
Supplément avion : 10 F par numéro et / ou disquette 
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Pomme d'Or 84 du meilleur logiciel 


L'informatique appartient aux créateurs. Artistes de l'ordinateur : craquezet 
croquez la Pomme d'Or Apple 84 du meilleur logiciel. Jusqu'au 30 octobre 1984, pour 
votre création, Apple vous offre la consécration. Votre concessionnaire-parrain 
vous assistera dans la mise en forme et le pré-test de votre logiciel. Chaque lauréat 
recevra, outre le Trophée, un Macintosh et verra son programme édité et distribué. 
Pionniers de la nouvelle culture, pe votre imagination devenez star de la program- 
mation. Avec Apple, apprenez l'homme à la machine. # 


esappie 


le goût du savoir 


ROUX. SEGUELA. CAYZAC & GOUDARD 





Pour obtenir le règlement et votre dossier de participation, faites tamponner le coupon-réponse ci-joint 
par le Concessionnaire agréé Apple de votre choix et adressez-le pour inscription à Apple Éducation 
à l'attention de Jean-Luc Lebrun, avenue de l'Océanie, Z.I. de Courtabœuf, 91944 Les Ulis, BP 131 
Tél. (6) 928.01.39. Veuillez m'inscrire à la Pomme d'Or Apple du meilleur logiciel 1984. 

Nom - : Prénom 
Adresse - 
Profession Téléphone _ 


Tampon du Concessionnaire "| 
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